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VOORWOORD 


MSX is hetantwoord op de vertwijfelde roep om een standaard voor betaalbare 
computers. De apparaten die zich daaraan conformeren, vallen vooral op door 
hun prestaties in BASIC, Inmiddels heeft de tweede generatie MSX computers 
zich aangediend, metnog meer mogelijkheden dan haarillustere voorgangers. 


Zulke computers vragen om kwaliteitssoftware, liefst volwaardige program- 
ma's die een goede kans maken als klassiekers in de annalen te worden bijge- 
schreven. 


Of de programma’s in dit boek aan een dergelijke hoge eis voldoen, zal de tijd 
leren. Vast staat echter dat alleen mensen die hun vak verstaan, in staat zijn pro- 
gramma’s te schrijven als NIM, X-code of Hersenbreker. 


Misschien heeft u de indruk dat programmeren berust op ondoorgrondelijke 
vakkennis. Wat BASIC betreft is niets minder waar. Om u daarvan te overtuigen 
openen de auteurs ter afsluiting van dit boek hun gereedschapskist. Dat u daar- 
door helemaal in de ban raakt van hun enthousiasme is niet denkbeeldig. 


ARCADE ACTIE 


Springer 
Afdaling în Chaos 


Schiet 


SPRINGER 


SPRINGER is een spannend spel waar veel behendigheid voor nodig is. De snel 
bewegende grafiek wordt bereikt met behulp van programmeerbare symbo- 
len. De bedoeling is om een springend mannetjete besturen, datzo snel moge- 
lijk 21 ballonnen stuk moet prikken. Het mannetje springt omhoog van plateaus 
onderaan hetscherm en kan naar boven, naar linksen naar rechtsspringen. Ook 
kan hij, als hij in de lucht zweeft, een beetje naar weerskanten worden bewogen. 


U bestuurt het mannetje met de cursorbesturingstoetsen NAAR LINKS en 
NAAR RECHTS. Als hij niet af en toe een zet naar boven krijgt met CURSOR OM- 
HOOG, veert hij steeds minder op en komt tenslotte tot stilstand. 


Het spel heeft negen niveaus, oplopend in moeilijkheid. Op elk niveau staan de 
plateaus op een andere plaats en hebben een andere breedte. Aan het begin 
van elk spelletje vraagt de computer welk niveau u wilt proberen. Druktu op 0, 
dan neemt de computer een willekeurig niveau. Nadat het gewenste niveau is 
ingetypt, volgt een korte wachttijd, waarin de verschillende karakters opnieuw 
worden gedefinieerd. Het scherm wordt schoongemaakt en er verschijnen ver- 
schillende plateaus en een aantal ballonnen tegen een rose achtergrond. Het 
mannetje verschijnt aan de linkerkant van het scherm en springt van het pla- 
teau. Het spel kan dan beginnen. 


Programmabeschrijving: 


in regel 80 en 90 wordt de moeilijkheidsgraad opgeroepen. Regel 120 stuurt het 
programma naar de subroutine in regel 9701040, waarin de karakters 100-106 
worden omgeprogrammeerd tot de figuren die we nodig hebben. Regel 130 
roept de routine in regel 1050 aan waar de basiswaarden van de variabelen wor- 
den bepaald. 


De ON GOTO-instructie in regel 150 roept het gewenste plateau op, waarna het 
in regel 840-960 op het scherm wordt gePRINT. Als u het programma LIST, ver- 
schijnen de plateaus als een reeks h's. Na de herdefiniëring vormen deze h's 
op het scherm een dicht plateau. Regel 160 PRINT de ballonnen op willekeurige 
plaatsen op het scherm. De routine die het springende ventje op het scherm 
brengt, wordt aangeroepen in regel 170. Regel 180 POKEt een spatie (karakter 
32) op de vorige positie van de springer. Dat geeft het effect van een continue 
beweging en zorgt ervoor dat er niet meer dan één springer tegelijk op het 
scherm komt. 


De invoer van de cursorbesturingstoetsen wordt in regel 190 gelezen. Regel 200 
geeft een pieptoon. De regels 210 en 220 controleren de bewegingen van de 
springer naar links en naar rechts wanneer hij in de lucht is. De instructie 
STICK(O) leest de invoer en vermindert of vermeerdert de waarde van X met 0.1. 
Dit betekent dat na 10 waardeveranderingen de springer van plaats verandert 
in horizontale richting (X-as). De verticale beweging van de springer wordt ge- 
controleerd in de regels 230-260. Of het mannetje een ballon heeft geraakt, 
wordt nagegaan in regel 270. Regel 280 POKEt de springer op het scherm en 
de variabele CN bepaalt welke gedaante van de springer moet verschijnen 
(springer naar links, naar rechts of omhoog). 


Regel 290 zorgt ervoor dat de springer niet van het scherm valt en regel 300 gaat 
na of hij het plateau niet gemist heeft. De spronghoogte wordt berekend in regel 
310, waarbij de variabele LMT (limit = grens) aangeeft aan hoe hoog het man- 
netje mag springen. Regel 320 wijstterug naar hetbegin van hethoofdprogram- 
ma, dat begint in regel 180. 


Het aantal geraakte ballonnen wordt bijgehouden in de regels 330 en 340 door 
de variabele HIT. Deze regels POKEn ook de kapotte ballonnen op het scherm. 
Het karakter dat voor de gesprongen ballonnen wordt gebruikt, is de asterisk 
(*) van het toetsenbord. Die wordt zo op een heel effectieve manier gebruikt. 


Door middel van de variabele LD in de regels 350-370 wordt de richting van de 
springer gecontroleerd. Waarde 1 betekent ‘naar links’, waarde 2 ‘naar boven’ 
en waarde 3'naar rechts’. De waarden voor LD worden vastgesteld in regel 580— 
600. 


Zijn er 21 ballonnen doorgeprikt, dan zorgen de regels 380-540 ervoor dat de 
score op het scherm komt. Daarna volgt de vraag of u het spel nog eens wilt spe- 
len. 


De routine in de regels 550-630 wordt aangeroepen wanneer het mannetje van 
het plateau springt. Daarin wordt de variabele LD gebruikt om de richting van 
de sprong te bepalen. De dolle sprongen van de springer aan het begin van het 
spel worden geproduceerd door de regels 640-740. Strandt het spel voortijdig 
door een sprong naast een plateau, dan melden de regels 750-820 dat. 


De plateaus die bij de verschillende niveaus horen, worden in deregels830-960 
door middel van PRINT-staternents op het scherm gebracht. 


SPRINGER is een leukspel waarmee u zich uren kunt vermaken. Het programma 

werd geschreven door William Leader. 

19 REM SPRINGER 

20 KEY OFF 

30 CLS 

40 SCREEN 1 

50 AF=5 

60 TIME=0 

70 COLOR 1,13,13 

80 LOCATE 2,10 

90 PRINT"WELK NIVEAU (0-9, O=RND)?" 

100 AS=INKEY$:IF A$='"" THEN 100 

110 R=VAL(A$):IF R<1 THEN R=INT(RND(-TIME)*9) +1 

120 GOSUB 1170:GOSUB 970 

130 LOCATE 2,11:GOSUB 1050 

140 FOR T=1 TQ 30:PRINT:NEXT 

150 ON R GOTO 830,850,860,880,900,920,940,950,960 

160 FOR L=1 TO 30:VPOKE 6144+INT(RND(1)*320), 105: 
NEXT L 

1709 GOTO 640 

180 VPOKE(6144+X+32*Y),32 

120 P=STICK(O) 

200 BEEP:GOSUB 1070 

210 IF P=7 THEN X=X-.1 

220 IF P=3 THEN X=X+.1 

230 IF D=-1 THEN GOTO 350 

240 IF D=1 THEN Y=Y+1:CN=101 

250 IF D=1 AND VPEEK(6144+X+32*Y)=104 THEN GOTO 
550 

260 IF D=-1 AND VPEEK(6144+X+32*Y)=104 THEN 
Y=Y+1:DelesWe-l 

270 IF VPEEK(61444+X+32*Y)=105 THEN GOTO 330 

280 VPOKE (6144+X+32*Y) ‚CN 

290 IF X<1 OR X>31 THEN D=1 Wel 

300 IP Y>22 THEN 750 

310 IF Y<LMT THEN FOR T=1 TO 100:3NEXT TsDe1:We-l 

320 GOTO 180 

330 VPOKE(6144+X4+32*Y),106:HIT=HIT+1: IF HIT>20 
TEEN GOTO 380 

340 GOSUB 1090:GOTO 180 


IF LD=1 TEEN Y=Y-1:CN=101:GOTO 240 

IF LD=2 THEN Y=Y-1:X=X-1:CN=103:GOTO 240 

IF LD=3 THEN Y=Y-1:X=X+1:CN=102:GOTO 240 

POKE 6144+X4+32*Y,CN 

GOSUB 1130 

SC=TIME 

FOR TD=1 TO 1000:NEXT TD 

FOR TD=1 TO 2000:NEXT TD 

CLS 

LOCATE 4,10 

PRINT"U SCOORDE'"';100-INT(SC)/100 

FOR TD={ TO 2000:NEXT TD 

LOCATE 2,14 

PRINT"WILT U NOG EEN SPEL?" 

A$=INKEY$ 

IF A$'J" THEN GOTO 520 

RESTORE : RUN 

IF A$<>"N" TEEN GOTO 490 

CLS 

END 

VPOKE 6144+X4+32*(Y-1),1002Y=Y-1 

FOR T=1 TO 5:W={ 

P=STICK(0) 

IF P=1 THEN LD=1:LMT=LMT-1,5:IF LMT<1 THEN 
LMT=0:G0OTO 630 

IF P=7 THEN LD=2:GOTO 630 

IF P=3 THEN LD=3:GOTO 630 

NEXT T 

LD=ls:LMT=LMT+.5:IF LMT>21 THEN LMT=21 
D=-1:LMT=LMT+18GOTO 180 

LOCATE 0,5:PRINT'"hhhhhh" 

FOR T=1 TO 1000:NEXT T 

FOR T=0 TO 53VPOKE 6144+T+32*4,100:FOR I= TO 
1OO:NEXT I:VPOKE 6144+T+32*4,32:NEXT T 

POKE 61444+5+32*4,100:FOR I=1 TO 1000:NEXT 1 
FOR T=4 TO O STEP-1:VPOKE 6144+5+32*T,101:FOR 
I=1 TO 100:NEXT I:VPOKE 6144+5+32*T,32:NEXT T 
FOR I=1 TO 100:NEXT 1 

FOR T=0 TO 4:VPOKE 61444+54+32*T,101:FOR I=1 TO 
1OO:NEXT I:VPOKE 61444+5+32*T,32:NEXT T 

VPOKE 6144+54+32*4,100:FOR T=1 TO 1000:NEXT Ts: 
X=52Y=4iCN=1012VPOKE 6144+X+32*Y, 323De-1 
VPOKE 6144#+X+32*Y,101 :LD=3 

LOCATE 0,5:PRINT " ke 

GOTO 180 

VPOKE 6144+X+32*Y,106:GOSUB 1110 


760 
770 
780 
790 
800 
810 
820 
830 
840 


850 
860 


870 
880 


890 
900 


910 
920 


930 
940 


950 


960 


970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


COLOR 15,4,9 

FOR TD=1 TO 1000:NEXT TD 

CLS 

LOCATE 0,10 

PRINT "U FAALDE NA SLECHTS";HIT 

PRINT 

PRINT "BALLONNEN TE HEBBEN DOORGEPRIKT'!":GOTO 460 
REM VERSCHILLENDE PLATEAUS PRINTEN 
LOCATE 0,22:PRINT"hhhhhhhhhhhhhhhhhhhhhhhhhh 
nh”:GOTO 160 
LOCATE 0,22:PRINT'"nhhhhhh hhhhhhh hhhhhhh hh 
hh”:GOTO 160 

LOCATE 0,17:PRINT"hhhhhhhhh":LOCATE 9,22: 
PRINT" hhhhhhhhhhh'” 

LOCATE 20,17:PRINT"hhhhhhhh":GOTO 160 
LOCATE 0,22:PRINT"nhhhhhhhhh"sLOCATE 10,17: 
PRINT" hhhhhhhhhh 

LOCATE 20,22:PRINT"hhhhhhhh":GOTO 160 

LOCATE 0,16:PRINT"hhhhhhhhhh"s;LOCATE 11,19: 
PRINT “hhhh" 

LOCATE 17,22:PRINT"hhhhhhhhhhh":GOTO 160 
LOCATE 0,14:PRINT"hhhhhhh"sLOCATE 7,22:PRINT"h 
hhhhh" 

LOCATE 14,19:PRINT"hhhh":LOCATE 20,17:PRINT“hh 
hhhhhh”:GOTO 160 

LOCATE 0,22:PRINT"n h hhhhhhhhhhhh 
“:GOTO 160 

LOCATE 0,17:PRINT"hhhnhhhhhh'': LOCATE 11,22: 
PRINT" hhhhhhhhhh"':LOCATE 20,17:PRINT“hhhhhhh 
n":GOTO 160 

LOCATE 0,17:PRINT"hhhhhhhhhh“sLOCATE 11,10: 
PRINT"hnhhhhhhhh'':LOCATE 20,22:PRINT"hhhhhhh 
h":GOTO 160 

REM HERDEFINIERING VAN KARAKTERS 

FOR N=100 TO 106 

FOR M=0 TO 7 

READ A 

VPOKE N*8+M,A 

NEXT M 

NEXT N 

RETURN 

S0=100sW=1 

RETURN 

BEEP 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


1190 
1200 
1210 
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RETURN 

PLAY "O3CEF" 

RETURN 

PLAY"OSCEF'" 

RETURN 

FOR K=1 TO 96 

PLAY"O5 N=K;" 

NEXT K 

RETURN 

CLS: LOCATE 6,11 :PRINT"GEKOZEN NIVEAU! ;R:RETURN 
DATA 24,24,60,102,153,24,24,60,153,90,62,36, 
24,36,66,129 

DATA 12,12,248,44,58,72,132,129,96,96,62,104, 
184,68,66,129 

DATA 0,0,0,255,255,0,0,0,24,60,126,126,125, 
126,60,24 

DATA 24,24,36,36,60,60,195,129 


AFDALING IN CHAOS 


AFDALING IN CHAOS is een bewegend grafisch spel, waarbij u uw ruimteschip 
laat afdalen in een lange, draaiende schacht naar het binnenste van de planeet 
Chaos, Om de missie tot een goed eindete brengen, moet u over een goed con- 
centratie—en reactievermogen beschikken. 


De besturing van het ruimteschip ligt in uw handen. De cursorbesturingstoet- 
sen NAARLINKS en NAAR RECHTS zorgen voor de verplaatsing van het schip. 
De afdaling kunt u vertragen door CURSOR OMHOOG in te drukken. 


Naarmate u dichter bij de kern van de planeet komt, wordt het spel moeilijker 
omdat de tunnel dan steeds nauwer wordt. 


did mn 
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Programmabeschrijving: 


het voornaamste deel van het programma, de hoofdroutine, zit tussen de FOR— 
NEXT loop (regel 80-240). Dat is de lus die het programma steeds doorloopt 
terwijl de planeet en de tunnel op het scherm worden gebracht. 


De initialisatie-routine (regel 690-740) wordt in regel 20 aangeroepen. Regel 
30 wijst naar de routine die de titelpagina van het spel verzorgt. In regel 40-60 
wordt het scherm zwart gemaakt en gewist en wordt de stringvariabele S$ (een 
string is een rij karakters) geïnitialiseerd. Deze string bestaat uit een aantal lege 
karakters (spaties) om de schacht te kunnen maken. 


In regel 130 wordt de waarde van Q bepaald (die nodig isom S$ over het scherm 
te TABuleren). De variabele X krijgt de waarde 259 (X wordt gebruikt om het 
ruimteschip op het scherm te kunnen laten bewegen). 


In regel 80 begint de spellus en worden 36 grafische karakters (GRAPH —P) op 
het scherm gePRINT. Daarna wordt nagegaan (regel 110) hoe breed de schacht 
is en als de breedte niet meer dan twee karakters is, wordt de eindroutine aan- 
geroepen. In regel 120-160 wordt een willekeurig getal gekozen, dat er, samen 
met variabele O, toe dient om de string over het scherm te TABuleren. Deze ver- 
anderende waarde zorgt voor draaiingen en bochten in de schacht. Regel 140 
en 150 zijn beveiligingen om te voorkomen dat de schacht van het scherm ver- 
dwijnt. 


Het ruimteschip (karakter 4) wordt op het scherm gePOKEt met de X uit regel 
280, Regel 180 roept de routine in regel 1100-1160 op, die de invoer van de cur- 
sorbesturingstoetsen leest. Wanneer CURSOR OMHOOG is ingedrukt, wordt 
een korte wachttijd ingelast om het spel te vertragen. Afhankelijk van de invoer 
wordt X met 1 verhoogd of verlaagd. 


In regel 200 wordt nagegaan of u tegen de wand van de schacht bent aangeko- 
men. Bij botsingen wordt variabele H in regel 310, die het aantal botsingentelt, 
verhoogd. De botsing wordt ookhoorbaar gemaakt door een ‘bleep’ (r. 320). Te- 
vens wordt bekeken tegen welke zijde van de schacht u bent gebotst en wordt 
ervoor gezorgd dat u weer in het midden terechtkomt, zodat u het spel kunt 
voortzetten (r. 200). 


In regel 230 wordt de variabele M verhoogd. Deze variabele geeft bij het einde 
van het spel aan hoever u in de schacht bent afgedaald. 


Nadat de FOR-NEXT loop 200 maal doorlopen is, wordt in regel 250 een karakter 


van de variabele S$ afgehaald, waardoor de schacht smaller wordt. Daarna 
gaan we weer terug naar regel 80 voor een volgende loop. 


12 


REM AFDALING IN CHAOS 
GOSUB 690 

GOSUB 750 

COLOR 9,1 

CLS 

S$=CHRI (30) +" " 
REM 8 SPATIES 

FOR RR=1 TO 200 

PRINT" 


REM 36*GRAPH+P 

IF S$=CHR$(30)+" " TEEN GOTO 520 
ZERND(1). 

Q=Qr(2<.5)-(Z>=.5) 

IF Q>23 THEN Q=23 

IF Q<4 THEN Q=4 

PRINT TAB(Q+3);S$ 

IF CSRLIN>21 THEN GOSUB 270 
GOSUB 1110 


IF CSRLIN<21 AND VPEEK(X+40)=219 THEN GOTO 


200 ELSE GOTO 210 
IF VPEEK(X-2)=219 THEN X=X+2 ELSE X=X-2 


IF CSRLIN>21 AND VPEEK(X+40)=219 THEN 300 


FOR TD=1 TO 25:NEXT TD 
M=M+10 

NEXT RR 

SS=LEFTS(S$, (LEN(S$) -1)) 
GOTO 80 

VPOKE R-40,32 

VPOKE X,4 

RETURN 

REM BOTSING GEHAD? 

H=H+1 

BEEP 

FOR TD=1 TO 1000:NEXT TD 
IF H=4 THEN GOTO 380 

IF VPEEK(X-2)=219 THEN X=X+2:G0TO 370 
KX 2 

GOTO 230 

REM EINDE SPEL 

CLS 

LOCATE 0,10 


PRINT "JE BENT";M/1000;''KM DOORGEDRONGEN IN" 


PRINT 
PRINT “DE TUNNELS VAN CHAOS" 


13 


14 


PLAY "L405C'" 

FOR TD=1 TO 1000:NEXT TD 

LOCATE 8,16 

PRINT 'NOG EEN SPELLETJE2'" 
A$=INKEY$ 

IF A$="'7"" TEEN RUN 

IF A$="N" THEN END 

GOTO 480 

REM DE BODEM BEREIKT 

FOR X=1 TO 3 

PLAY "O4 CEG",‚"O05 CEG",‚"06 CEG" 
NEXT X 

FOR Z=1 TO 14 

COLOR 2 

FOR TD=1 TO 100:NEXT TD 

LOCATE 7,10:PRINT"OLEE!'" 

NEXT Z 

SS=SS+1: IF SS>3 THEN SS=0:GOTO 630 
GOTO 560 

CLS 

LOCATE 0,5 

PRINT TAB(12)"GOED GEDAAN! '': PRINT 
PRINT TAB(1)"JE BENT DOORGEDRONGEN TOT DE 
BODEM": PRINT 

PRINT TAB(8)"VAN DE TUNNELS VAN CHAOS": PRINT 
: PRINT 

GOTO 410 

REM INITIALISATIE 

CLS 

KEY OFF 

SCREEN 0 

Q=10:X=259 

RETURN 

REM TITELPAGINA 

P=RND( -TIME) 

CLS 

COLOR 8,1 

FOR R=9 TO 25 

READ B 

IF R=17 OR R=20 THEN NEXT R 
FOR Y=0 TO 13 

LOCATE R‚Y 

PRINT" " 

REM GRAPH SHIFT + | 


LOCATE R‚Y+1 

PRINT CHR$(B) 

FOR TD=1 TO 5:NEXT TD 
NEXT Y 
NEXT R 
Y=13 

FOR QW=1 TO 12 
R=INT(RND(1)*17) +9 

IF R=17 OR R=20 THEN 930 
GOSUB 1200 
FOR Y=13 TO 8 STEP -1 
LOCATE R,Y+1 
PRINT CHR$ (32) 
LOCATE R,Y 

PRINT CHR$(V) 

FOR TD=1 TO 15:NEXT TD 
NEXT Y 

FOR Y=8 TO 14 

LOCATE R‚Y-1:PRINE" ' 
REM GRAPH SHIFT + | 
LOCATE R,Y:PRINT CHR$(V) 
FOR TD=1 TO 15:NEXT TD 
NEXT Y 

NEXT QW 

RETURN 

REM STUURROUTINE 
D=STICK(O) 

R=X 

IF D=7 THEN X=X-1 

IF D=3 THEN X=X+1 

IF D= THEN FOR TD=1 TO 100:NEXT TD 
RETURN 

DATA 65,70,68,65,76,73,18,71,32 
DATA 73,78,32,67,72,65,79,83 
V=VPEEK( (R+14*40) +2) 
RETURN 
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SCHIET 


SCHIET gebruikt opnieuw gedefinieerde karakters om een geweldig spel van 
hettype Space Invaderste maken. De buitenaardse indringer beweegt van links 
naar rechts over het scherm. Steeds als hij de rand van het scherm bereikt, valt 
hij een stukje naar beneden tot het volgende niveau om dan aan de andere kant 
van het scherm weer te verschijnen. U kunt maximaal tien punten verzamelen. 
Als het vreemde vliegtuig op uw niveau is gekomen, hebtu een punt verspeeld 
en verschijnt het vliegtuig weer bovenaan. 


Gebruik de eursorbesturingstoetsen om de afweerbasis naar links en naar 
rechts te bewegen. Met de spatiebalk schiet u projectielen af. 


Voor een flitsende start van het programma wordt een ingenieuze aftelroutine 
gebruikt. Deze routine maakt gebruik van vijf stringvariabelen en van de DATA 
in de regels 1060-1150. 


De variabelen X en Y worden gebruikt als coördinaten voor de beeldschermpo- 
sitie van de afweerbasis en de variabelen SX en SY om het vreemde toestel te 
verplaatsen. 


SCHIET werd geschreven door Daniel Quinn. 


ee 
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REM SCHIET 

DIM S1(90) 

SCREEN 1 

GOSUB 940 

GOSUB 530 

CLS:ST=0:W=6144 
Y=751:EI=32 
FOR X=ST TO EI 
VPOKE W+Y,100:VPOKE W+X,101 

D=STICK(0) 

IF D=7 AND Y>736 THEN VPOKE W+Y,32:GOSUB 200 
IF D=3 AND Y<767 THEN VPOKE W+Y,32:GOSUB 210 
A$=INKEY$ 

IF A$=" " THEN VPOKE W+X,32:GOSUB 340 

IF W+X>6880 THEN GOTO 440 

VPOKE W+X,32 

NEXT X 

ST=ST+32:EI=EI+32 

GOTO 80 

Y=Y-1:VPOKE W+Y,100:RETURN 

Y=Y+1:VPOKE W+Y,100:RETURN 

VPOKE W+X,46:VPOKE W+X-1,46:VPOKE W+X+1,46 
VPOKE W+X-33,46:3VPOKE W+X+33,46 

FOR TD=1 TO 10:NEXT TD 

VPOKE W+X,32:VPOKE W+X-1,32:VPOKE W+X+1,32 
VPOKE W+X-33,32:VPOKE W+X+33,32 

FOR TD=1 TO 10:NEXT TD 

VPOKE W+X+1,46:2VPOKE W+X-2,46:VPOKE W+X+2,46 
VPOKE W+X-34,46:VPOKE W+X+34,46 

FOR TD=1 TO 10:NEXT TD 

VPOKE W+X+1,32:VPOKE W+X-2,32:VPOKE W+X+2,32 
VPOKE W+X-33,32:VPOKE W+X+33,32 

GOTO 440 

FOR S=1 TO 23:VS=32 

VPOKE W+X,32 

Z=W+Y-(VS*S) 

VPOKE Z,46 

X=X+1 

VPOKE W+X,101 

IF W+X=Z THEN GOTO 220 

VPOKE 2,32 

NEXT S 

RETURN 

FOR TD=1 TO 300:NEXT TD 
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LEV=LEV+1:IF W+X<6880 THEN SC=SC+1 
IF LEV=10 THEN 490 


LUS=LUS-5 
GOTO 60 
CLS 


LOCATE 4,10 
PRINT''JE SCOORDE: "'; SC; "PUNTEN" 


END 


REM INITIALISATIE 


CLS 


COLOR 1,3,4 


CLS 


LOCATE 0,7 
K$="£EELLE" 
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P$='" 
FOR A=9 TO O0 STEP -1 
FOR Z=l TO 10 


£ 


READ F 
IF F=1 THEN 
IF F=2 THEN 
IF F=3 THEN 
IF F=4 THEN 
IF F=5 THEN 
NEXT Z 

FOR TD=1 TO 
CLS 

FOR TD=1 TO 
LOCATE 0,7 
NEXT A 

FOR TD=1 TO 
LOCATE 0,6 
PRINT " fff 
PRINT " £ 
PRINT " £ 
PRINT " £ 
PRINT " _£ 
PRINT " £ 
PRINT " £££ 


PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
300:NEXT TD 


30:NEXT TD 


100:NEXT TD 


£ 
Ê 
É 
£ 
£ 
£ 
£ 


PRINT: PRINT; PRINT'' 
FOR A=1 TO 30:IF A/2=INT(A/2) THEN C=2;B=0: 
GOTO 890 


W;K$ 
“;L$ 
„M$ 
";0$ 
“;P$ 
EEEF GEELEN 
£ 5 hal 
£ £“ 
EE gi 
£ gt 
£ fr 
EEE BP 


DOOR DANIEL QUINN" 


880 C=0:B=1:LUS=50 

890 COLOR 2,C,B 

900 FOR TDe{ TO 1O:NEXT TD: NEXT A 
910 COLOR 15,4,4 

920 CLS 

930 RETURN 

940 REM HERDEFINIERING VAN KARAKTERS 
950 FOR N=100 TO 102 

960 FOR M=0 TO 7 

970 READ B 

980 VPOKE N*8+M,B 

990 NEXT M 

1000 NEXT N 

1010 RETURN 

1020 DATA 6,12,24,60,60,126, 255,126 
1030 DATA 3, 134, 204, 252, 254,48, 56, 192 
1040 DATA 255, 255, 255, 255, 255, 255; 255,255 
1050 REM DATA VOOR en AFTELLEN 


1060 DATA 1,2,2,2,2, ,3,3,3,3 
1070 DATA EEE Mn 
1080 DATA 1,3,3,3,3,3,3,3,3,3 
1090 DATA 1,4,4,4,4,1,2,2,2,1 
1100 DATA 1,4,4,4,4,1,3,3,3,1 
1110 DATA 2,2,2,2,2,1,3,3,3,3 
1120 DATA ETET ee 
1130 DATA 1,3,3,3,3,1,4,4,4,1 
1140 DATA 5,5,5,5,5,5,5,5,5,5 
1150 DATA 1,2,2,2,2,2,2,2,2,1 


AVONTUUR EN SIMULATIE 


Overleven 
Het Romeinse Rijk 
Slag om Engeland 


Eigenheimerheerd 


OVERLEVEN 


Ditavonturenprogramma,geschreven door Doug Rolfe,isandersdan anders. 


U bent passagier op een vlucht naar een ander melkwegstelsel. Het ruimteschip 
is aangevallen en geplunderd door ruimtepiraten. De bemanning is gedood en 
een paar passagiers die meevlogen, zijn ontvoerd. U bent de enige die nog aan 
boord is. Om te overleven moet u in de controlekamer zien te komen, het ruim- 
teschip weer op gang brengen en een veilige plaatsziente bereiken. Wees alstu- 
blieft voorzichtig, want een ruimteschip op hol heeft vele gevaren in petto voor 
iemand die er onbekend mee is. 


OVERLEVEN is niet vertaald uit het Engels. De oorzaak daarvan ligt bij de ver- 
schillende attributen die in het spel een rol spelen. Die worden namelijk door 
het programma aan hun Engelse namen herkend. De schrijfwijze van de woor- 
den is daarbij doorslaggevend. Vertaling in het Nederlands zou er daardoor op 
neerkomen dat hetcomplete programma moetworden herschreven. U kuntdat 
zelf proberen, maar dan hebt u de oorspronkelijk structuur nodig. Het belang- 
rijkste argument om dit adventure niet in het Nederlands te vertalen is dat een 
vertaalde versie pas na zeer veel experimenteren even sterke speelmogelijkhe- 
den heeft als het programma waarover u nu beschikt. 
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Voor alle duidelijkheid volgt hieronder wel de vertaling van alle in het pro- 
gramma voorkomende Engelse termen. 


nothing niets 

the hull hetomhulsel 

acloseddoor eendichtedeur 

anopendoor een opendeur 

anairlock een luchtsluis 

ahand-print controlled door een deurdie beveiligd isdoor 
een handaftaster (sensor) 

alockedlocker een gesloten slot 

an openlocker een openslot 

autopilotinstructiontape instructietape voor automati— 
sche piloot 

space suit ruimtepak 

doorkey deursleutel 

laser cutter laser-—snijapparaat 

backpack rugzak 

lockerkey sleutel vaneenslot 

sonicscrewdriver sonischeschroevendraaier 

logic probe logischesonde 

pliers buigtang 

warhead kernkop 

detonator ontsteker 

nuclearcharge kernlading 

helmet helm 

gloves handschoenen 

boots laarzen 

laser pistol laserpistool 

coursetape instructietape 

missilecasing verpakking van een raket 

knife mes 

scalpel ontleedmes 

handtranciever handontvanger 

powerpack batterijenset 

grappling hook enterhaak 

binoculars verrekijker 

body (in dit geval)lijk 

laserrifle lasergeweer 

riflecharge geweerlading 

cable kabel 

food pack voedselpakket 


Werkwoorden die in het programma zijn gebruikt: 


go ga 
get neem 
convert zetom 
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continue gadoor 
unlock ontsluit 

open open 

don’t doe … niet 
wear draag (kleding) 
use gebruik 

fire vuur,schiet 
ignore negeer 
assemble stelsamen 
detect vind (zoekend) 
disable stel buiten werking 
detonate ontsteek 


Verder komt u tegen: 


noseward voorwaarts 
tailward achterwaarts 
spinward rechtsom 
antispinward linksom 


Bevelen moeten als twee woorden worden ingevoerd: eerst een werkwoord, 
zoals GET of GO, gevolgd door een zelfstandig naamwoord of een richting, zo- 
als BOOTS of NOSEWARD. U hebt vier mogelijkheden wat betreft de richting: 
NOSEWARD en TAILWARD (bedoeld wordt richting voorschip en richting ach- 
terschip) en SPINWARD en ANTISPINWARD. Deze twee laatste richtingen heb- 
ben betrekking op de richting waarin het ruimteschip rond de as draait om een 
kunstmatige zwaartekracht op te wekken. SPINWARD is tegen de draairichting 
van hetschip inen ANTISPINWARD is metde draairichting van het schip mee. 


Het scherm geeft alle informatie die u in de loop van het spel nodig heeft. Er 
wordt steeds verteld wat u kunt zien in de vier richtingen en daarbij wordt u geïn- 
formeerd over eventuele in de buurt liggende voorwerpen. Dan wordt naar uw 
bevel gevraagd. 


We willen het spel niet te gemakkelijk maken, dus geven we niet meer informa- 
tie. Toch zijn er nog twee dingen die u moet weten: let erop dat deuren en kasten 
die op slot zitten, van het slot gedaan moeten worden (UNLOCK). Deuren die 
dicht zitten, moeten geopend worden (OPEN). De OPEN- en UNLOCK-routines 
zijn verschillend. Als u een deur wilt OPENEN die op slot is, kan het voorkomen 
dat er wordt meegedeeld dat er geen deur is. Het programma zoekt naar een 
dichte deuren niet naar een deur die op slot is. Is er geen dichte deur, dan neemt 
het programma uiteraard aan dat u een fout heeft gemaakt. Natuurlijk kunt u 
pas een deur of kast van het slot doen als u de juiste sleutel heeft. 


Tenslotte moet u voorzichtig zijn met wat u oppakt. Sommige voorwerpen kunt 


u beter niet bij u hebben en wat u eenmaal heeft gepakt, kunt u niet meer weg- 
leggen. Veel succes! 
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REM OVERLEVEN 


CLS 
GOSUB 2310 
WLS (O)="A WALL" 2WL$(1)="NOTHING":WL$ (2) ="THE 


HULL":WL$(3)="A CLOSED DOOR" 
WL$(4)=""A LOCKED DOOR"zWL$(5)="AN OPEN DOOR": 
WL$(6)="AN AIRLOCK" 

WL$(7)=""A HAND-PRINT CONTROLLED DOOR": WL$ (8) = 
YA LOCKED LOCKER" 
WL$(9)="AN OPEN LOCKER":DR$(1)="'NOSEWARD": 
DR$ (2) ="TAILWARD' 

DR$ (3) ="ANTISPINWARD'":DR$ (4) ="SPINWARD'" 
DIM O$(5,15),D$(5,15),OB$(35) 

CLS:LOCATE 8,11:PRINT"PLEASE WAIT..." 
N=14:N2=512DIM V$(N),N$(N2):X=1:Y=1 

FOR XX=1 TO N:READ V$(XX):NEXT XX 

FOR XX=1 TO N2:READ N$(XX)sNEXT XX 

FOR XX=1 TO 5:FOR YY=1 TO 15:READ D$(XX,YY): 
NEXT YY:NEXT XX 

FOR XX=1 TO 5:FOR YY=1 TO 15:READ O$(XX,YY): 
NEXT YY:NEXT XX 


FOR XX=0 TO 34;:READ OB$(XX):;NEXT XX 
CLS 

PRINT 

GOSUB 1090 

PRINT 


PRINT" YOUR COMMAND PLEASE'";:INPUT A$ 
GOSUB 2450 

PRINT: PRINT 

F$=LEFT$(A$,3) 


IF F$="INV!" THEN FOR XX=0 TO NP:PRINT PO$(XX): 


NEXT XX:GOTO 200 

IF LEN(A$)<4 THEN PRINT"I DON'T UNDERSTAND": 
GOTO 200 

FOR P=l TO LEN(A$):P$=MID$(A$,P,1):IF P$=" " 
THEN GOTO 290 

NEXT P:PRINT:PRINT"PLEASE ENTER A TWO WORD 
SENTENCE":GOTO 200 

S$=MID$(A$,P+1,3) 

FOR XX=1 TO N:IF V$(XX)=F$ THEN F=l:V=XX 
NEXT XX 

IF F=0 THEN PRINT"NO RECOGNISABLE VERB":GOTO 
200 

F=0 


340 
350 
360 


370 
380 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 


520 
530 
540 
550 
560 


570 
580 
590 
600 


610 
620 
630 
640 
650 
660 
670 
680 


FOR XX=1 TO N2:IF N$(XX)=S$ THEN P=12NO=XX 
NEXT XX 

IF F=0 THEN PRINT"NO RECOGNISABLE NOUN":GOTO 
200 

F=0 

ON V GOTO 410,510,1170,750,1020,1380,1380, 
1970 

ON (V-8) GOTO 1810,1810,1810,1730,1850,1970 
PRINT"YOU CAN'T DO THAT":GOTO 200 

EF MID$(D$(X,Y),NO,1)="1" THEN GOTO 450 

IF MID$(D$(X,Y),NO,1)="5'" THEN GOTO 450 

IF MID$(D$(X,Y),NO,1)="9"" THEN GOTO 450 
GOSUB 2390:PRINT"THUMP !1!1":GOTO 180 

ON NO GOTO 470,480,490,500 

PRINT"THAT DOESN'T MAKE SENSE":GOTO 200 
Y=Y+12GOTO 180 

Y=Y-1:GOTO 180 

K=X+1:GOTO 180 

X=X-1:GOTO 180 

IF K$="NOTHING" THEN PRINT "THERE IS NOTHING 
HERE":GOTO 180 

FOR P=1l TO LEN(K$):PP$=MID$(S$,P,S): IF PP$<> 
"0" THEN GOTO 540 

NEXT Ps:PRINT"I CAN'T SEE ANY SUCH OBJECT": 
GOTO 180 

IF NP=7 THEN PRINT "YOU CAN'T CARRY ANY 
MORE" :GOTO 200 

IF K$="BODY" THEN PRINT " THE BODY IS TOO 
HEAVY TO CARRY":GOTO 180 

IF K$="COMPUTER" THEN PRINT"YOU CANT'T, TT's 
FIXED TO THE WALL":GOTO 180 

IF K$="AUTOPILOT INSTRUCTION TAPE" THEN FT=1 
IF K$=!"SPACE SUIT" THEN FS=1 

IF K$="DOOR KEY!" THEN DK=1 

IF K$="LASER CUTTER" OR K$="POWER PACK" TEEN 
LF=LF+1 

IF K$="BACK PACK" THEN FS(5)=1 

IF K$="LOCKER KEY" THEN LK=1 

IF K$="SONIC SCREWDRIVER" THEN T1=1 

IF K$="LOGIC PROBE" THEN T2=1 

IF K$="PLIERS" TEEN T3=1 

IF K$="WARHEAD" THEN Wi=1sEX=1 

IF K$="DETONATOR" THEN W2=1:EX=1 

IF K$="NUCLEAR CHARGE" THEN W3=12EXe1 


690 
700 
710 
720 
730 
740 
750 
760 
770 
780 


790 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 


970 
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IF K$="HELMET" THEN FS(1)=1 

IF K$="SPACE SUIT" THEN FS(2)=1 

IF K$="GLOVES" THEN FS(3)=1 

IF K$="BOOTS" THEN FS(4)=1 
NP=NP4+1: POS (NP)=K$:0$(X,Y)="0" 

PRINT"YOU HAVE";RR$;" '"';K$:G0TO 180 

IF NO<>14 THEN GOTO 830 

PRINT"WHERE";INPUT A$:A$=LEFT$(A$,3) 

FOR XX=1 TO 4:IF LEFT$(DR$(XX),3)=A$ THEN 
GOTO 790 

NEXT XX:PRINT"THAT DOESN'T MAKE SENSE":GOTO 
180 

IF MID$(D$(X,Y) ,XX,1)<5"'4"" THEN PRINT"THERE 
IS NO LOCKED DOOR";DR$(XX):GOTO 180 

Tr DK<>1 TEEN PRINT"YOU DON'T HAVE THE KEY": 
GOTO 180 

PRINT"DOOR UNLOCKED" :D$ (X,Y)=LEFTS$(D$ (X/Y) „XX 
-1)4"3"+RIGHT$(D$(Y,X) , 4-XX) 

NW$="3":ON XX GOTO 980,1000,1010 

IF NO<>15 THEN GOTO 910 

PRINT"WHERE" ;: INPUT A$:A$=LEFT$(A$,3) 

FOR XX=1 TO 4:IF LEFT$(DR$(XX),3)=A$ THEN 
GOTO 870 

NEXT XX:PRINT"THAT DOESN'T MAKE SENSE":GOTO 
180 

IE MIDS(D$(X,Y) ,XX,1) "8" THEN PRINT"NO 
LOCKED LOCKER ";DR$(XX):GOTO 180 

IP LKé>1 THEN PRINT"YOU DON'T HAVE THE KEYUI!s 
coro 180 
DS(X,Y)=LEFTS (DE (XY), KX-1)+"I"+RIGHTS (DS (X, 
v),4-XX 

NW$=""9"zON XX GOTO 980,990,1000,1010 
PRINT"WHERE";s INPUT A$:A$=LEFTS(A$,3) 

FOR XX=1 TO 4:IF LEFT$(DR$(XX),3)=A$ THEN 
GoOTO 940 

NEXT XXsPRINT"THAT DOESN'T MAKE SENSE'":GOTO 
180 

IF MIDS(DS(X,Y),XX,1) 9"6" THEN PRINT"THERE 
IS NO AIRLOCK “;DR$(XX):GOTO 180 

IF RF=| AND FS=2 AND X<>3 THEN PRINT"YOU MADE 
ITL": END 

IF FS<>2 THEN PRINT"YOU EXPLODED IN THE 
VACUUM! £"z END 

PRINT"YOU HAD NOWHERE TO GO AND YOU FLOATED 


TO YOUR DEATHII":END 
980 D$(X,Y+1)=LEFTS(D$(K,Y+1) 1) ENWS$+RIGHTS (DS (X, 
Y+1),2):GOTO 180 

990 D$(X,Y-1)NNS+RIGHT$(D$(X,Y-1),3):GOTO 180 

1000 D$(X+1,Y)=LEFTS(D$(X+1,Y),3) FNW$:GOTO 180 

1010 D$(X-1,Y)=LEFTS$(D$(X-1,Y),2)+NW$+RIGHTS (DS (X 
-1,Y),1)+NW$:GOTO 180 

1020 PRINT"WHERE";: INPUT A$sA$=LEFT$(A$,3) 

1030 FOR XX=1 TO 4:IF LEFT$(DR$(XX),3)=A$ THEN 
GOTO 1050 

1040 NEXT XX:PRINT"THAT DOESN'T MAKE SENSE'":GOTO 
180 

1050 IF MID$(D$(X,Y),XX,1) <>" 3" THEN PRINTYNO 
CLOSED DOOR "“;DR$(XX}:GOTO 180 

1060 PRINT"DOOR OPEN";D$(X,Y)=LEFTS(D$(X,Y) ‚XX 
1) 5 ERIGHTS(D$(X,Y),4-XX) 

1070 NW$="5"zON XX GOTO 980,990,1000,1010 

1080 GoTO 180 

1090 FOR TD=1 TO 1000:NEXT TD:CLS:FOR DR=1 TO 4: 
PRINT 


1100 PRINT DR$(DR);' YOU SEE ";WL$(VAL(MIDS(D$(X, 
Y),DR,1))) 

1110 NEXT DR 

1120 IF VAL(OS(X,Y))<>0 THEN K$=0B$(VAL(OS(X,Y))) 
:GOTO 1150 

1130 IF O$(X,Y)<>"0" THEN K$="NOTHING":RR$=""": GOTO 
1150 

1140 K$=OB$(ASC(OS(K,Y))-47) 

1150 PRINT:PRINT"YOU SEE ";K$;" HERE" 

1160 RETURN 

1170 IF OS(X,Y)<>"P' THEN PRINT"THERE IS NO 
COMPUTER HERE":GOTO 180 

1180 CLS:PRINTYDO YOU WISH TO SET A COURSE (Y/N)" 

1190 A$=INKEY$:IF A$="" THEN GOTO 1190 

1200 IF A$="Y" THEN GOTO 1230 

1210 PRINT"I HAVE NO OHER FUNCTION, " 

1220 PRINT"DISCONNECTION PROCEEDS'":GOTO 180 

1230 IF FT=1 THEN GOTO 1250 

1240 PRINT" IMPOSSIBLE WIHOUT":PRINT"AUTO PILOT 
COURSE TAPE":GOTO 180 

1250 PRINT'COURSE SET:":PRINT"DO YOU WISH TO" 

1260 PRINT"PROCEED TO DESTINATION (Y/N)2" 

1270 A$=INKEY$:IF A$="" THEN GOTO 1270 

1280 IF Ag=""N" THEN GOTO 180 
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1290 IF A$<>"Y' THEN GOTO 1270 

1300 CLS:PRINT"HYPERDRIVE IN OPERATION..." 

1310 FOR XX=1 TO 2000:NEXT XX3CLS:RF=1 3: PRINT; 
PRINT"PRESENT STATUSs' 

1320 PRINT"ORBITING 4TH PLANET OF" :PRINT"STAR 
tT CANOPUS ' ." 

1330 PRINT"SENTRY CRAFT OF THIS":PRINT"PLANET 
REQUEST DOCKING" 

1340 PRINT:PRINT"DO YOU WISH TO COMPLY? (Y/N)": 
PRINT"ADVISABLE" 

1350 A$=INKEYS:IF A$="'" THEN 1350 

1360 IF A$="Y" THEN RF=1:PRINF"DOCKED: PROCEED 
TO AERLOCK '2'":GOTO 180 

1370 PRINT:PRINT"YOU WHERE SHOT OUT OF THE SKY!! 
TELE END 

1380 IF P2=2 THEN PRINT"YOU ALREADY HAVE A COMPLETE 
SUIT":GOTO 200 

1390 IF NO=34 THEN GOTO 1450 

1400 IF NO=11 OR NO=12 THEN GOTO 1500 

1410 IF NO=35 THEN GOTO 1550 

1420 IF NO=36 THEN GOTO 1600 

1430 IF NO=37 OR NO=35 THEN GOTO 1660 

1440 PRINT"THAT DOESN'T MAKE SENSE!!":GOTO 180 

1450 IF FS(1)<>1 THEN PRINT"YOU DON'T HAVE A 
HELMET"':GOTO 1710 

1460 PRINT"YOU ARE NOW WEARING THE HELMET":FOR 
XX=1 TO NP 

1470 IP PO$(XX)="HELMET" THEN PO$(XX)=PO$ (NP): 
NP=NP-1sFS(1)=0 

1480 NEXT XX 

1490 F3=F3+1:GOTO 1710 

1500 IF FS(2)<>1 THEN PRENT"YOU DON'T HAVE A 
SPACE SUIT":GOTO 1710 

1510 PRINT"YOU ARE NOW WEARING THE SPACE SUIT": 
FOR XX=1 TO NP 

1520 IF PO$(XX)="SPACE SUIT" THEN PO$(XX)=PO$ (NP 
):NP=NP-13FS(2)=0 

1530 NEXT XX 

1540 F3=F341:GO0TO 1710 

1550 IF FS(3)<>1 THEN PRINT'YOU DON'T HAVE 
GLOVES": GOTO 1710 

1560 PRINT"YOU ARE NOW WEARING THE GLOVES" :FOR 
XX=1 TO NP 

1570 IF PO$S(XX)="GLOVES" THEN PO$(XX)=PO$ (NP): 
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1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 


1720 
1730 


1740 
1750 


1760 
1770 


1780 
1790 


1800 
1810 


1820 
1839 


1840 
1850 


NP=NP-1:FS(3)=0 

NEXT XX 

F3=F3+1:GO0TO 1710 

IF FS(4)<>1 THEN PRINT“YOU DON'T HAVE BOOTS": 
GOTO 1710 

PRINT"YOU ARE NOW WEARING THE BOOTS" :FOR 

XX=1 TO NP 

IF POS(XX)="BOOTS" THEN PO$(XX)=POS(NP) : 
NP=NP-1:FS(4)=0 

NEXT XX 

F3=F3+1:GOTO 1710 

PRINT"YOU ARE WEARING THE BOOTS":FS2=FS2+1 
GOTO 180 

IP FS(5)<>1 THEN PRINT"YOU DON'T HAVE A BACK 
PACK": GOTO 1710 

PRINT"YOU ARE NOW WEARING TEE BACK PACK": FOR 
XX=1 TO NP 

IF POS(XX)="BACK PACK" THEN PO$(XX)=POS (NP): 
NP=NP-1:FS(5)=0 

NEXT XX 

F3=F3+1 

IF P3=5 THEN F2=2;NP=NP+1:PO$(NP)="FULL SPACE 
SUIr” 

GOTO 180 

IF NO<>(16 AND 27) THEN PRINT"YOU CAN'T": GOTO 
180 

IF LF<>2 THEN PRINT"YOU CAN'T": GOTO 180 

FOR XX=1 TO NP:IF PO$(XX)="LASER CUTTER" THEN 
POSS (XX) ="CHARGED CUTTER":LF=3 

NEXT XX 

FOR XX=1 TO NP:IF PO$(XX)="POWER PACK!" THEN 
POS$ (XX) =POS (NP) : NP=NP-1 

NEXT XX 

PRINT''YOU HAVE A FULLY CHARGED LASER CUTTER 
BE CAREFUL! !" 

GOTO 180 

IF LF=0 THEN PRINT"YOU DON'T HAVE ONE" :GOTO 
180 

IF LF<>3 THEN PRINT"NOTHING HAPPENED!" :GOTO 
180 

PRINT"YOU HAVE BURNED A HOLE RIGHT THROUGH 
TEE HULL " 

PRINT:PRINT"YOU HAVE DIED IN THE VACUUM!":END 
IF EX<>1 THEN PRINT"YOU HAVE NOTHING TO 
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1860 


1870 
1880 
1890 


1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 


2000 
2010 


2020 
2030 


2040 
2050 
2060 
2070 


2080 
2090 


2100 
2110 


2120 
2130 


2140 
2150 
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DETONATE":GOTO 180 

IF NO=19 AND Wl=l THEN PRINT"THE WARHEAD HAS 
DESTROYED THE SHIP" 

FOR TD=1 TO 1000:NEXT TD 
PRINT:PRINT:PRINT"AND YOU ALONG WITH IT":END 
IF NO=18 AND W2=1 THEN PRINF"THE DETONATOR HAS 
BLOWN UP" 

FOR TD=1 TO 1000:NEXT TD 

PRINT"IT HAS KILLED YOU":END 

IF W3=1 AND(NO=16 OR N0=27) THEN GOTO 1940 
PRINT" IMPOSSIBLE!!":GOTO 180 

PRINT"ONLY A FOOL WOULD DETONATE A NUCLEAR 
WEAPON INSIDE A SPACESEIP" 

FOR TD=1 TO 2500:NEXT TD 

PRINT: PRINT:PRINT"BUT YOU DID IE" zEND 

IF NO=14 OR N0=21 THEN GOTO 1990 

PRINT" YOU CAN'T'"';GOTO 180 

EF T1<>1 OR T2<>1 OR T3<>1 THEN PRINT"voU 
DON'T HAVE THE TOOLS":GOTO 180 

IF X<>3 OR Y<>12 THEN PRINT"HOW?I1":GOTO 180 
PRINT"YOU HAVE SUCCESFULLY DISMANTLED THE 
DOOR" 

D$(3,12)="3011":D$(3,13)="1311":GOTO 180 
DATA T25505G,E,06G,05E,G,E,06G,05E,D,O5D,C, 
D,E,D,C 

DATA “GO ",GET,CON,UNL,OPE,DON,WEA,LIG, USE, 
FIR,IGN,ASS,DET,DIS 

DATA NOS,TAI,ANT,SPI,NUC,CHA,RIF,PIS,KEY,TAP, 
SPA, SUI ,COM, DOO, LOC, CUT 

DATA AIR,DET,WAR,TRA,HAN,SCA,LOG,PRO,AUT, INS, 
LAS 

DATA MIS,CAS,SCA,KNI,POW,PAC,HEL,GLO, BOO, BAC, 
GRA, HOO,UNI, BIN 

DATA BOD,CAB,FOO,WAT,VIT,SON,SCR,PLI, LOG, PRO 
DATA 1212,1182,1182,0182,0046,1092,1182,0182, 
1012,1192,1192,8112 

DATA 0812,0002,0002 

DATA 0211,0088,0088,0088,1014,1109,1108,1108, 
0101,1009,0109,0011 

DATA 1011,0110,0000 

DATA 0611,1018,1118,4118,0411,1010,4110,3410, 
1310,1100,0110,7011 

DATA 1711,1111,2100 

DATA 0211,1001,1101,0101,0011,1001,0101,0011, 


2160 
2170 


2180 
2190 
2200 
2210 
2220 
2230 
2240 


2250 
2260 
2270 
2280 
2290 
2300 


2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 


8001,0800,0001,0011 
DATA 1001,0101,0000 
DATA 1221,1120,1120,1120,1121,1120,1120,1121, 
1120,1120,1120,8121 
DATA 0820,0020,0020 


DATA 0,0,N,M,B,3,D,C,0,8,0,0,8,0,0 

DATA 0,A,V,K,0,0,0,0,2,E,F,0,1,T,0 

DATA 0,G,1,0,Y,5,J,6,0,R,0,0,Q,L,P 

DATA 5,0,0,0,=,9,H,W,X,4,<,0,2,5,0 

DATA 0,0,7,0,0,0,0,0,0,>,0,0,U,0,0 

DATA NOTHING,TORCH,DOOR KEY,LOCKER KEY,LOGIC 
PROBE 

DATA SONIC SCREWDRIVER,PLIERS,LASER CUTTER, 


LASER PISTOL,SCANNER 

DATA NUCLEAR CHARGE,AUTOPILOT COURSE TAPE, 
WARHEAD 

DATA DETONATOR,MISSILE CASING,SCALPEL,KNIFE, 
HAND TRANCEIVER,ANTENNA 

DATA POWER PACK,SPACE SUIT,HELMET,GLOVES, 
BOOTS,BACK PACK,COMPUTER 

DATA GRAPPLING HOOK,UNIFORM,BINOCULARS , BODY, 
LASER RIFLE 

DATA RIFLE CHARGE,CABLE,FOOD PACK,WATER PACK, 
VITAMIN PACK,CABLE 

REM TITEL 

SCREEN 0:P=RND(-TIME) 

LOCATE 13,11:PRINT"SURVIVAL" 

FOR LUS=1 TO 15 

READ M$ 

PLAY M$,M$,M$ 

NEXT LUS 

RETURN 

Z=INT(RND(1)*60+36) 

FOR LUS=Z TO 2-10 STEP-1 

PLAY "N=LUS;" 

NEXT LUS 

RETURN 

REM GELUID 

FOR Z=60 TO 70 

PLAY "N=Z;" 

NEXT Z 

RETURN 
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HET ROMEINSE RIJK 


Dit programma biedt de mogelijkheid om voor een poosje de machtigste man 
van de klassieke wereld te zijn: de Keizer van het Romeinse Rijk! Om succes te 
hebben, moet u alle beschikbare bronnen aanboren om een sterken welvarend 
rijk op te bouwen. U moet een evenwicht zoeken tussen handel en militaire 
kracht, terwijl u de bevolking moet voorzien van voldoende voedsel. 


Elke spelronde komt overeen met een jaar. Aan het begin van elk jaar ontvangt 
u een rapport van de Senaat, waarin de toestand van het Rijk voor het komende 
jaar beschreven staat. Dit rapport is erg belangrijk en moet zorgvuldig worden 
bestudeerd. Het geeft informatie over de bevolkingsgrootte, de omvang van le- 
ger, marine en handelsvloot en de hoeveelheid arbeid die voor de scheeps- 
bouw beschikbaar is. Ook wordt verteld hoeveel handelsgildes zich bezighou- 
den met de productie van goederen voor de export en hoeveel arbeid er nog 
niet toegewezen is en die u in het komende jaar moet inzetten. Het rapport laat 
verder zien hoeveel goudreserves er zijn, hoeveel voedsel er opgeslagen ligt 
en de benodigde hoeveelheid voedsel om de bevolking te voeden. 


I 


| 


Td 


ND 
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De eerstetaak aan het begin van elke ronde isom de nog niettoegewezen arbeid 
in te zetten. Dit is zeer belangrijk, vooral in de eerste jaren, als het Rijk nog maar 
klein is en hard moet vechten. Ook is het belangrijk om de juiste verhoudingen 
tussen de verschillende sectoren (leger, marine en handwerkslieden) te hand- 
haven. De omvang van het leger bepaalt of u wel of niet in staat bent oorlogen 
te winnen of opstanden in de provincies neer te slaan. Wat de waarde van de 
exporthandel zal zijn hangt af van de uitkomst van deze veldslagen. 


U moet ervoor zorgen dat u voldoende bemanningen heeft voor de schepen die 
u gaat bouwen. Elk scheepsbouwcohort bouwt 1 schip per jaar. Het is dus niet 
verstandig om 40 cohorten te hebben, als u maar 25 bemanningen heeft. Het 
is natuurlijk ook verspilling wanneer de bemanningen moeten wachten op de 
scheepsbouwers omdat er onvoldoende schepen zijn. Daarom moet u vol- 
doende arbeid inzetten voor de marine en de handelsvloot om de schepen die 
worden gebouwd, te kunnen bemannen. 


Een opmerking: u kunt arbeid aftrekken van elke sector door een negatief getal 
in te voeren. U kunt ook naar hartelust arbeid verschuiven totdat u alle arbeids- 
reserve verdeeld heeft. Dit kan meteen al in de eerste ronde nodig zijn om een 
onevenwichtige beginsituatie te corrigeren. Als u geen arbeid meer heeft om 
in te zetten (waarde 0), gaat het programma over naar de volgende fase. 


Elke gilde van handwerkslieden produceert voldoende exportgoederen omeen 
schip te vullen. Met deze handelsgoederen verdient u uw inkomen. De plaatse- 
lijke handelsschepen zorgen voor het voedsel voor uw volk. 


Nadat alle arbeid is ingezet, krijgt u de gelegenheid om hulptroepen (Auxilia) 
te huren om het leger uitte breiden. Auxilia zijn duurder dan gewone legioenen 
en ze gaan niet altijd even rustig weg wanneer ze ontslagen worden. 


De volgende routine behandelt de scheepsbouw. Zoals gezegd, zorg ervoor dat 
u bemanningen hebt voor al uw schepen. U kunt naar eigen inzicht de schepen 
verdelen over de marine en de handelsvloot. Er wordt gevraagd hoeveel sche- 
pen u over zee wilt sturen en hoeveel oorlogsschepen nodig zijn als escorte. Jw 
handelsschepen lopen altijd kans door piraten aangevallen te worden, dus is 
het raadzaam oorlogsschepen als escorte mee te sturen. Elk oorlogsschip dat 
u niet meestuurt, wordt geacht in de kustwateren te patrouilleren om de plaat- 
selijke handelsschepen te beschermen. Alle oorlogsschepen met de overzeese 
handelsschepen meesturen, betekent dan ook dat de kans groot is dat plaatse- 
lijke handelsschepen verloren gaan. 


Nadat u al deze beslissingen heeft genomen, wordtu geïnformeerd over moge- 
lijke oorlogen en opstanden in het Rijk. Aan het eind van dit deel wordt u mee- 
gedeeld hoe de strijdkrachten het hebben gedaan en hoegrootdeverliezen zijn. 
Als u een veldslag verliest, kunnen de verliezen hoog oplopen! De computer 
geeft een volledige lijst van verliezen en veranderingen in de handelswaarde 
na elk gevecht. 


In de volgende routine wordt verteld hoe groot de schade is die de piraten aan 
de handelslieden hebben toegebracht. Deze verliezen kunnen worden vermin- 
derd door de handelsvloot te beschermen met een sterke vloot oorlogssche- 
pen. 
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Hierna krijgt u een compleet verslag van de financiële transacties in dat jaar, in- 
clusief de handelsinkomsten en de uitgaven voor het leger. En wat voor u als 
keizer natuurlijk van het meeste belang is; de laatste regel geeft u een overzicht 
van de goudvoorraad. 


Nu moet de bevolking voedsel hebben. Het programma vertelt u hoeveel voed- 
sel de plaatselijke handelsschepen hebben teruggebracht en of dit genoeg was. 
ls dat niet het geval, dan moet u meer graan gaan kopen tegen enorme woeker- 
prijzen. 


De laatste routine in elke ronde geeft de mate van populariteit aan. U krijgt een 
score in punten, die is gebaseerd op de toestand van uw Rijk en uw poging om 
uit te breiden. Deze score kan erg op en neer gaan tijdens het spel. Pas wel op 
dat u het niet al te slecht doet als keizer, dat zou kunnen betekenen dat u vroeg- 
tijdig een einde aan uw keizerschap maakt. 


10 REM HET ROMEINSE RIJK 

20 GOSUB 150:REM INITIALISATIE 

30 GOSUB 3240:REM START 

40 GOSUB 320:REM WERKVERDELING 

50 GOSUB 650:REM HUURLINGEN INHUREN 

60 GOSUB 970:REM SCHEPEN BOUWEN 

70 GOSUB 1180:REM HANDEL BEPALEN 

80 GOSUB 1340:REM OORLOGEN 

90 GOSUB 1590:REM WIN- OF VERLIESPROCEDURE 
100 GOSUB 2190:REM MUITERIJ 

110 GOSUB 2330:REM HANDEL DRIJVEN 

120 GOSUB 2480:REM VOEDSEL VOOR DE INWONERS 
130 GOSUB 2640:REM POLITIEK GEDEELTE 

140 GOTO 2790:REM EINDROUTINE OF OVERWINNING 
150 KEY OFF 

160 CLS:COLOR 15,1:TR=50000!5TN=-55:PO=100000! 
170 P=RND(-TIME) 

180 MS=INT(20*RND(1))+111 

190 WS=INT(10*RND(1))+30 

200 FS=INT(1O*RND(1))+10 

210 VL=100:FR=100:FL=1 

220 LA=INT(10*RND(1))+6 

230 MA=INT(6*RND(1))+5 

240 LE=INT(10*RND(1))+11 

250 LN=WS:LM=MS 

260 LS=INT(30*RND(1))+16 
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UL=250-LS-LE-LM-LN-LÀ 


IF UL<O THEN GOTO 180 
SCREEN 0 
M1$="T10003ABA"sM2$=" 
M3$="T25505EC" 

RETURN 

IF FL=0 THEN CLS:X=3: 
PRINT" TOETSING BENODI 
FOR Z=1 TO 500sNEXT Z 
IF UL<>0 THEN GOSUB 2 
IF UL=0 THEN X=33Y=13 


T8OO4CDC": 


Y=10:GOSUB 3180: 
GDE WERKKRACHTEN" 
2FL=0 

980 

zGOSUB 3180:sPRINT" 


ARBEIDSRESERVE VERDEELD" 


IF UL=0 THEN GOSUB 31 
IF UL=0 TEEN RETURN 
CLS: PRINT: PRINT" ARBEI 


40 


DSRESERVE =";UL 


PRINT:PRINT"WAAR WILT U DIE INZETTEN?" 


PRINT:PRINT"(1) = LEGER":PRINT"(2) = MARINE" 


PRINI"(3) = HANDELSVLOOT":PRINT"(4) = 


HANDWERKSLIEDEN 
PRINT" (5) = SCHEEPSBO 
INPUT A 

IF A<1 OR A>5 THEN GO 
A=1 THEN GOTO 500 
A=2 THEN GOTO 530 
A=3 THEN GOTO 560 
A=4 THEN GOTO 590 
IF A=5 THEN GOTO 620 
PRINT: PRINT" EENHEDEN 
INPUT B:IF B>UL THEN 
LA=LA+B:UL=UL-B:GOTO 
PRENT : PRINT" EENHEDEN 
INPUT B:IF B>UL THEN 
LN=LN+B: UL=UL=-B: GOTO 


UWERS"' 


TO 380 


VOOR HET LEGER!" 
GOTO 500 

320 

VOOR MARINE" 
GOTO 540 

320 


PRINT: PRINT" BEMANNING HANDELSVLOOT' 


INPUT B:IF B>UL THEN 
LM=LM+B; UL=UL-Bs GOTO 
PRINT: PRINT "PRODUKTIE 
INPUT B:IF B>UL THEN 
LE=LE+B;3 UL =UL-B: GOTO 


GOTO 570 

320 

GROEPEN HANDWERK! 
GOTO 600 

320 


PRINT: PRINT" PRODUKTIEGROEPEN SCHEEPSBOUW" 


INPUT BsIF B>UL THEN 
LS=LS+B2UL=UL-B: GOTO 
CLS 

X=0:Y=6:GOSUB 3180 


GOTO 630 
320 
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670 PRINT:PRINT"TE WERVEN EENHEDEN HUURLINGEN ss 
MA 

680 PRINT:PRINT"AANTAL EENHEDEN HUURLINGEN ONTSLAAN = 
"SME 

690 PRINT:PRINT"WAT WILT U „....”:GOSUB 3160 

700 PRINT'"(1) = WERF HUURLINGEN" 

710 PRINT"(2} ONTSLA HUURLINGEN" 

720 PRINT'(3) GEEN VAN BEIDE" 

730 INPUT B: IF B<1 OR B>3 THEN GOTO 730 

740 IF B=1 THEN GOTO 770 

750 IF B=2 THEN GOTO 800 

160 IF B=3 THEN RETURN 

770 PRINT:PRINT"HOEVEEL EENHEDEN WILT U HUREN?" 

780 INPUT B:IF B>MA OR BXO THEN GOTO 770 

790 MH=MH+B:MA=MA-B:GOTO 650 

800 PRINT "HOEVEEL EENHEDEN WILT U ONTSLAAN?: 

810 INPUT B;:IF B>MH OR B<0 THEN GOTO 810 

820 MH=MH-B:MA=MA+B:MI=B*20: X=INT(1OO0*RND(1)) +1 

830 COLOR 1,6:PRINT:PRINT"DE ONTSLAGEN EUURLINGEN 
DREIGEN OP TE TREKKEN TEGEN ROMEL 1" 

840 GOSUB 3130:IF MI<X THEN GOTO 940 

850 PRINT"DE HUURLINGEN MUITENI":GOSUB 2940:GOSUB 
3130 

860 U=INT(1O*RND(1)41)*10002V=INT(20*RND(1)#1000): 
W=INT(1O0*RND(1) +2) 

870 PRINT:PRINT"ZE HEBBEN UW SCHAT VAN";U; "GOUDEN 
STAVEN GESTOLEN":GOSUB 3140 

880 PRINT:PRINT"EN REGEN";V; "BURGERS AAN HET 
ZWAARD"; GOSUB 2140 

890 PRINT:PRINT"ARBEIDERS GEDOOD:-":GOSUB 3140 

900 PRINT"HANDWERKSLIEDEN="s INT (W/3) 


910 PRINT "SCHEEPSBOUWERS ="GINT(W/3) 

920 TR=TR-U: PO=PO-V; LS=LS-INT(W/3) :LE=LE-INT(W/3) 

930 GOSUB 3200:GOTO 650 

940 PRINT:PRINT"DE HUURLINGEN HEBBEN BESLOTEN" 

950 PRINT'"OM VREEDZAAM NAAR HUIS TERUG" 

960 PRINT"TE KEREN"s:GOSUB 3130 

970 CLS:US=LS 

980 IF US=0 THEN PRINT:PRINT"U HEBT GEEN SCHEPEN 
MEER TE BOUWEN":GOSUB 3140 :RETURN 

990 PRINT:PRINT "SCHEPEN TE BOUWEN =";US 

1000 NaLN-WS:MW=LM-MS 

1010 PRINT: PRENT "MARINEBEMANNINGEN ZONDER SCHIP 

HENK 


uu 
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1020 


1030 
1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 


1120 
1130 
1140 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


1270 
1280 
1290 
1300 


1310 
1320 
1330 
1340 
1350 


1360 
1370 
1380 


PRINT: PRINT"KOOPVAARDIJBEMANNINGEN ZONDER 


SCHIP" ;MW 

PRINT:PRINT"WAT WILT U BOUWEN ……..." 
PRINT"(1) = OORLOGSSCHEPEN":PRINT"(2) = 
KOOPVAARDIJSCHEPEN" 

PRINT"(3) = GEEN" 

INPUT B 


IF B<O OR B>3 THEN GOTO 1060 

IF B=1 THEN GOTO 1110 

IF B=2 THEN GOTO 1140 

IF B=3 THEN GOTO 1170 

PRINT: PRINT"HOEVEEL OORLOGSSCHEPEN WILT U 
BOUWEN" ; 

INPUT B:IF B<0 OR B>US THEN GOTO 1120 
US=US-B:WS=WS+B:GOTO 980 
PRINT:PRINT"HOEVEEL HANDELSSCHEPEN WILT U 
BOUWEN"; 

INPUT B:IF B<0 OR B>US THEN GOTO 1150 
US=US-B:MS=MS+B:GOTO 980 

RETURN 

IF LN>WS THEN WA=WS 

IF WS>=LN THEN WA=LN 

IF MS>LM THEN MU=LM 

IF LM>=MS THEN MU=MS 

CLS:GOSUB 3150 

X=0:Y=6:GOSUB 3180 


PRINT"AANTAL BESCHIKBARE OORLOGSSCHEPEN" ; WA 
PRINT"AANTAL BESCHIKBARE HANDELSSCHEPEN"' ;MU 


PRINT: PRINT"U KUNT";LE;" HANDELSSCHEPEN NAAR 


VERRE GEBIEDEN STUREN” 
PRINT:PRINT"HOEVEEL WILT U ER STUREN"; 
INPUT B:IF B<0 OR B>LE THEN GOTO 1280 
MO=B:ML=MU-B 

PRINT"HOEVEEL OORLOGSSCHEPEN MOETEN HEN 
ESCORTEREN"; 

INPUT B;IF B<0 OR B>WA THEN GOTO 1310 
WO=B:WL=WA-B 

RETURN 

CLS 

LOCATE 2,2:PRINT"LET OP OORLOGEN EN 
OPSTANDEN" 

GOSUB 3140 
PP=INT(1000*RND(-TIME) +1 )+(VF*3) 

IF PP>950 THEN X=2:Y=6:GOSUB 3180:VF=VF45 


39 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 


1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 


1690 


1700 
1710 
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IF PP>950 THEN PRINT"ER ZIJN GEEN OORLOGEN 
OF OPSTANDEN":GOSUB 3150:GOTO 1550 
IF PP<175 THEN A$="OORLOG":B$="MET 
CARTHAGO'':GOTO 1500 

IF PP<350 THEN A$="OPSTAND":B$="IN 
GALLIE":GOTO 1510 

IF PP<450 THEN A$="OPSTAND";B$="IN 
BRITTANIE'":GOTO 1510 

IF PP<525 THEN A$="OORLOG":B$="MET 
MACEDONIE'":GOTO 1520 

IF PP<625 THEN A$="OORLOG":B$="MET 
DE PARTHEN":;GOTO 1520 

IF PP<675 TEEN A$="OORLOG":B$="'MET 
DE GRIEKEN'":GOTO 1530 

IF PP<750 THEN A$="OORLOG":B$="MET 
DE PICTEN":GOTO 1530 

IF PP<875 THEN A$="OPSTAND";B$="IN 
JUDEA":GOTO 1530 

IF PP<925 THEN A$="OPSTAND":B$="IN 
SPANJE";GOTO 1540 
A$="OPSTAND";B$="OP CRETA'":GOTO 1540 
G=INT(15*RND(1))+5:H=1.8:GOTO 1560 
G=INT(12*RND(1))+3sH=1.6:GOTO 1560 
G=INT(1O*RND(1))+2:H=1,4:GOTO 1560 
G=INT(B8*RND(1))+1sH=1.25GOTO 1560 
G=INT(4*RND(1))+13H=15GOTO 1560 
G=INT(3*RND(1))+13GOSUB 3200:PX=100: 
FX=100: RETURN 

X=0:Y=10:GOSUB 3180 

PRINT A$;" BREEKT UIT ";B$:GOSUB 2940 
GOSUB 3200:RETURN 

IF PP>950 THEN GOTO 2060 
ZB=INT(100*RND(-TIME) ) +1 

IF IN<=-50 THEN ZD=2:GOTO 1650 

IF IN<-50 THEN ZD=1.5:G0TO 1650 

IF TN<-40 THEN ZD=1:GOTO 1650 

IF IN<-35 THEN ZD=.75:G0TO 1650 
ZC=INT( (LA+MH+ (WL/3) )*ZD/H) 

IF ZC>100 THEN ZC=99 

CLS 

X=0:Y=8:GOSUB 3180:PRINT"UW KANS OM TE 
WINNEN IS ";ZC;"3" 

GOSUB 2940:GOSUB 3140 

IF ZB<=2C THEN GOTO 1830 

PRINT: PRINT" *4** ROME IS VERSLAGEN ****!: 


1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


2080 
2090 


2100 


GOSUB 2960 

WW=INT(1O*RND(1)+1*H): IF WW>WL THEN WW=WL 
MW=INT(20*RND(1)+7*H): IF MW>ML THEN MW=ML 
MX=INT(S*RND(1)+2*H):IF MX>MO THEN MX=MO 
WX=INT(3*RND(1)+1*H)sIF WX>WO THEN WX=WO 
AW=INT(6*RND(1)+1*H) IF AW>LA THEN AW=LA 
SW=INT(8*RND(1)+1*H):IF SW>MH THEN SW=MH 
FX=INT(20*RND(1 )+79) 

PX=INT(5*RND(1)+95) 

SX=INT(3*RND(1)*H):IF SX>LS THEN SX=LS 
EX=INT(3*RND(1)*H):IF EX>LE THEN EX=LE 
VF=VF-INT(G*2):;GOTO 1940 

PRINT:PRINT!'*** ROME IS OVERWINNAAR **#!!; 
GOSUB 2960 

WW=INT(S*RND(1)+1*H):IF WWoWL THEN WW=WL 
MW=INT(1O*RND(1)+3*H): IF MW>ML THEN MW=ML 
MX=1:IF MO=0 THEN MX=0 

WX=0 

AW=INT(2*RND(1)+1*H): IF AW>LA THEN AW=LA 
SW=INT(3*RND(1)+1*H):IF SW>MH THEN SW=MH 
FX=100 

PX=100 

SX=0 

EX=0:VF=VF+INT(G*1,5) 

PRINT: PRINT"VERLIEZEN' 

PRINT WW; "KUSTBEWAKING" 

PRINT WX;"OORLOGSSCHEPEN OVERZEE" 
PRINT:PRINT MW; "LOKALE HANDELSSCHEPEN" 
PRINT MX; "OVERZEESE HANDELSSCHEPEN" 
PRINT;PRINT AW; "LEGIOENEN" 

PRINT SW; "HUURLINGEENHEDEN' 

PRINT;PRINT 100-FX;'& VAN VOEDSELRESERVE'" 
PRINT 100-PX;''% VAN DE RIJKSBEVOLKING'" 
PRINT:;PRINT SX;"SCHEEPSBOUWERSGROEPEN" 
PRINT EX; "'HANDWERKSLIEDEN" 

PRINT: PRINT: GOSUB ‘3200 

CLS:X=0:sY=10:GOSUB 3180 

IF ZB<=4C THEN PRINT "ROME'S HANDELSKOERS 
STEEG MET";G; "3" 

IF ZB<=2C THEN VL=VL+G 

IF ZB>ZC THEN PRINT '"ROME'S HANDELSKOERS 
ZAKTE MET";G; "3" 

IF ZB>ZC THEN VL=VL-G 


41 


2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 


2310 


2320 
2330 
2340 


2350 
2360 


2370 
2380 
2390 
2400 
2410 
2420 
2430 


2440 
2450 
2460 
2470 
2480 
2490 
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PRINT:PRINT"DE HANDELSKOERS IS NU";VL;"3!' 
GOSUB 3200 

WS=WS-—WW-WX 2 LN=LN-WW-WX 
MS=MS-MW-MX : LM=LM-MW-MX 
LA=LA-AW:MH=MH-SW 

FS=INT(FS*FX/100) 

PO=INT(PO*PX/100) 
LS=LS-SX:LE=LE-EX: RETURN 

CLS:X=03Y=6 

PRINT"PIRATEN VALLEN UW SCHIP AAN':GOSUB 
2920 

RL=INT(50*RND(1)+50) 

RP=INT{( (RL-WL)/10) 

IF RP<O TEEN RP=0 

IF RP>ML THEN RP=ML 

ML=ML-RP 3MS=MS-RP ; LM=LM-RP 

PRINT: PRINT RP; "KUSTVAARDERS VERLOREN" 
RO=INT(50*RND(1) +50) 

RQ=INT( (RO-WO)/10) 

IF RQ<O THEN RQ=0 

IF RQ>MO THEN RQ=MO:MO=MO-RQ:MS=MS-RQ: 
LM=LM-RQ 

PRINT: PRINT RQ; "OVERZEESE HANDELSSCHEPEN 
VERLOREN" 

GOSUB 3140 :RETURN 

CLS:X=2;Y=2;GOSUB 3180 

COLOR 1,10:PRINT"FINANCIELE WINST!" :PRINT 
PRINT INT(ML*VL);"=LOKALE HANDELSWINST" 
PRINT INT(MO*VL*20);"=OVERZEESE 
HANDELSWINST" 
TR=TR+INT ( (ML*VL) + (MO*VL*20) } 

PRINT TR;''= GOUD IN SCHATKAMERS' 

GOSUB 3150:X=2:Y=9:GOSUB 3180 
PRINT"UITGAVEN" : PRINT 

PRINT MH*2500;"VOOR" ;MH; "HUURLINGENTROEPEN" 
PRINT LA*500; "VOOR"; LA; "LEGIONAIRS'" 
PRINT LN*500; "VOOR"; LN; "MARINEBEMANNINGEN'': 
PRINT: PRINT 
TR=TR-(LA*500)-(LN*500)-(MH*2500) 

PRINT" UITEINDELIJKE BALANS'': PRINT 
PRINT TR;"'GOUDSTUKKEN" 

GOSUB 3200 ;RETURN 

FV=INT(40*RND(1 ))+85 

CLS:X=0:Y=2:GOSUB 3180 


2500 
2510 
2520 


2530 
2540 


2550 
2560 
2570 


2580 
2590 


2600 
2610 


2620 
2630 
2640 


2650 
2660 
2670 
2680 
2690 
2700 
2710 


2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 


2800 
2810 
2820 


2830 


| 
PRINT “VOEDSEL VOOR HET VOLK" 
PRINT de ns HEBBEN" 
PRINT INT(ML*FV/100) ; "VOEDSELEENHEDEN 
GEBRACHT" | 
PRINT "PLUS UW VOORRAAD VAN"; FS 
PRINT “EENHEDEN, GEEFT U"';FS+INT(ML*FV/100 
) s "EENHEDEN" | 
FS=FS+INT(ML*FV/100) 
FS=FS-FR:IF FS<O THEN GOTO 2580 
PRINT:PRINT"ER IS RUIM VOLDOENDE VOEDSEL": 
GOSUB 3200 :RETURN 
PRINT:PRINT"U LAAT HET VOLK VERHONGEREN" 
PRINT:PRINT"HET HEEFT";ABS (FS) ; "VOEDSEL-. 
EENHEDEN NODIG" 
GOSUB 31305 TR=TR+(2000*FS) 
PRINT" BETAAL" ;-2000*FS;'"GOUDSTUKKEN VOOR 
IMPORT"; PRINT''VAN GRAAN TEGEN WOEKERPRIJS" 
VFzVF-(2*FS):FS=0 
GOSUB 3200 :RETURN 
CLS:X=33Y=2:GOSUB 3180: PRINT"OPINIPEILINGEN 
UsX=03{=5:GOSUB 3180 
IF VF<O THEN GOTO 2680 
PRINT"UW REGERING IS NOG STEEDS POPULAIR" 
GOSUB 3200 :RETURN 
PRINT"DE RIJKSONDERZOEKSDIENST RAPPORTEERT:" 
PRINT"DAT UW REGERING NIET POPULAIR IS" 
PRINT"U HEEFT";ABS (VF); "PUNTEN NODIG" 
PRINT''OM VOLDOENDE POPULARITEIT TE VERWERVEN 
WaIF TR<1000 THEN RETURN 
PRINT:PRINT"HOEVEEL WILT U BESTEDEN OM ROME" 
PRINT"EN HAAR BEVOLKING TE SUSSEN"; 
INPUT A 
IF A=0 THEN RETURN 
A=INT(A/1000) 
VF=VF+A 
RETURN 
PO=INT(PO*1 07) :FR=INT(PO/1000) :WW=0 3MW=0: 
WX=0:MX=0:AW=02SW=0:FX=0 
MA=MA+INT(GERND(1) +1) 2PX=01SX=0 5 EX=0 
TN=TN+1 :UL=INT(PO/2500) 
SC=INT( ((LA+LN+LM+LE+LS)*100) +(TR/2)+(PO/50)/ 
(100-TN)) 
CLS: X=42Y=10:GOSUB 3180:PRINT"UW SCORE IS ="} 
SC:GOSUB 3200 
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2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 


3210 
3220 
3230 
3240 
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IF TN>-36 OR SC<O THEN GOTO 2860 
X=0sY=10:GOSUB 3180:GOTO 40 
FOR Z=1 TO 1500:NEXT Z:CLS 
X=3:Y=10:GOSUB 3180 

PRINT"HET SPEL IS UIT t41" 
X=3:2Y=14:GOSUB 3180 

PRINT'"UW SCORE IS";SC; "PUNTEN" 
END 

PLAY M1$ 

RETURN 

PLAY M2$ 

RETURN 

PLAY M3$ 

RETURN 

CLS: PRINT" JAARVERSLAG SENAAT"; ABS (EN) 5” 
v.C. 

PRINT: PRINT" BEVOLKING ‚PO 
PRINT" LEGEREENHEDEN VLA 
PRINT" HUURLINGENTROEPEN "';MH 
PRINT" OORLOGSSCHEPEN REALE 
PRINT "'MARINE-EENHEDEN WE LN 
PRINT "HANDELSSCHEPEN MS 
PRINT" SCHEEPSBEMANNINGEN ";LM 
PRINT" SCHEEPSBOUWERS LS 
PRINT" HANDWERKSLIEDEN ";LE 
PRINT" ARBEIDSRESERVE "UL 
PRINT"'GOUDVOORRAAD DER 
PRINT"VOEDSELVOORRAAD Hers 
PRINT"'VOEDSELBEHOEFTE P;FR 
GOSUB 3200 :RETURN 

FOR Z=1 TO 1000:NEXT Z 

FOR Z=1 TO 500:NEXT Z 

FOR Z=l TO A75:NEXT Z 

FOR Z=1 TO 25:NEXT Z 

RETURN 

LOCATE X,Y 

RETURN 

X=5:Y=21:GOSUB 3180:PRINT"GA VERDER NA 
TOETSDRUK":GOSUB 2920 
A$=INKEY$ 

IF A$="" THEN 3210 

RETURN 

COLOR 15,6 


3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 


xxg=" HET ROMEINSE RIJK" 
GX=35 

FOR XG=1 TO 35 
G2$=MID$(XX$,GX,XG) 

LOCATE 2,10:PRINT G2$; 

GOSUB 3370 

GX=GX-1 

NEXT 

REM GELUID UIT 


FOR Z=1 TO 1000:NEXT 
CLS: COLOR 1,3 
RETURN 

REM GELUIDSROUTINE 
FOR Z=1 TO 50:NEXT Z 
RETURN 
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DE SLAG OM ENGELAND 


Ditprogrammalaat de eerste twee weken van september 1940 herleven. U voert 
het bevel over de 11e Eenheid Royal Air Force en uw opdracht is om Spitfires 
en Hurricanes in te zetten om te voorkomen dat de Luftwaffe de door haar geko- 
zen doelen bombardeert. 


Aan het begin van elke dag krijgt u een inlichtingenrapport dat een schatting 
geeft van het totale aantal vliegtuigen dat de vijand ter beschikking staat en van 
de staat van paraatheid van uw vliegvelden. Deze factoren veranderen voortdu- 
rend in de loop van het spel. Vliegtuigen gaan verloren in gevechten, de ver- 
vangingssnelheid van de vliegtuigen verandert als er vliegtuigfabrieken wor- 
den gebombardeerd en de inzetbaarheid wordt aangetast als uw vliegvelden 
en radarposten worden aangevallen. 


Nadat u het inlichtingenrapport hebt gelezen, selecteert de Luftwaffe haar doe- 
len voor de acties van die dag. Het scherm wordt schoongemaakt en u krijgtde 
gelegenheid om vliegtuigen in te zetten om voor een zo goed mogelijke verde- 
diging te zorgen. 
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Het is belangrijk zoveel mogelijk vliegtuigen in actie te krijgen. Het aantal ge- 
vechtsvliegtuigen dat erin slaagt de binnendringende bommenwerpers te on- 
derscheppen, is minder naarmate de vliegtuigen slechter zijn ingezet en het 
weer slechter is. U krijgt elke ronde een weerrapport waarin de bewolkings- 
dichtheid staat aangegeven. Op dagen met zware bewolking is het goed inzet- 
ten van de vliegtuigen extra belangrijk. 


Als de Luftwaffe succesvolle aanvallen uitvoert op de radarposten of op de 
vliegvelden, wordt het niveau van inzetbaarheid drastisch verminderd, Dat is 
van grote invloed op het aantal gevechtsvliegtuigen dat beschikbaar is en het 
aantal vliegtuigen dat een goede kans heeft de binnendringende bommenwer- 
perste onderscheppen. Actiestegen vliegtuigfabrieken verminderen hetaantal 
toestellen, dat voor vervanging wordt gebouwd. 


Hoewel de kans klein is, kunnen een zorgvuldige planning en een dosis geluk 
u de overwinning bezorgen. 


Programmabeschrijving: 


het spel wordt bestuurd vanuit de hoofdlus in regel 40-110. De opbouw in pro- 
grammamodulen zorgt ervoor dat het programma beter uitgevoerd wordt en 
het ook gemakkelijker is om fouten op te sporen, mochten die zich voordoen. 


In regel 20 wordt de initialisatieroutine aangeroepen. Er worden stringvariabe- 
len opgezet die de namen kunnen bevatten van alle toestellen en van verschil 
lende andere woorden die in de loop van het spel worden gebruikt. Deze string- 
variabelen (een string is een rij karakters) worden vervolgens gebruikt in 
PRINT-instructies. Dit vermijdt een heleboel herhalingen bij het intypen en 
maakt de instructies gemakkelijker te gebruiken. De regels 2150-2180 geven de 
beginsterkte van alle toestellen. en de beginwaarden van alle variabelen die 
worden gebruikt om de inzetbaarheid van de Engelse gevechtsvliegtuigen (BS) 
en de Duitse toestellen (GS) te berekenen. De variabele DD wordt gebruikt om 
het aantal dagen vast te stellen dat in de loop van het spel is gespeeld. Regel 
2320 wordt gebruikt om aan de hand van Xen Y de positie van dePRINT-instruc- 
ties op het scherm te bepalen. 


In regel 2220-2260 zien we een aantal FOR-NEXT lussen die worden gebruikt 
om vertragingen in het programma aan te brengen. Er kunnen lussen van ver- 
schillende lengten worden gemaakt door GOSUB-instructie te gebruiken en 
verschillende regelnummers aan te roepen. GOSUB 2230 geeft bijvoorbeeld 
een vertraging van 1000 en GOSUB 2240 een vertraging van 500. In regel 30 
wordt de titelroutine aangeroepen en als die voorbij is, komen we bij de lus van 
het hoofdprogramma. 


Regel 40 roept de routine aan die het inlichtingenrapport op het scherm brengt. 
In regel 150-220 wordt een schatting gemaakt van de inzetbaarheid van de Luft- 
waffetoestellen; die wordt vervolgens afgebeeld. Dit getal is ruwweg geba- 
seerd op het werkelijke aantal bommenwerpers en gevechtsvliegtuigen, dat 
toentertijd in Frankrijk beschikbaar was. De regels 230-260 doen hetzelfde voor 
de Engelse toestellen. Ook hier wordt uitgegaan van het werkelijke aantal Spit- 
fires en Hurricanes dat destijds de 11e Eenheid ter beschikking stond. 
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De routine vanaf regel 300 berekent elke ronde de doelwitten van de Luftwaffe. 
We verklappen hier niet hoe dit wordt gedaan, maar het resultaat komt aardig 
overeen met de historische feiten. In regel 380 wordt de weersfactor berekend, 
die bepaalt hoeveel bewolking er zal zijn. Zware bewolking betekent een aan- 
zienlijke vermindering van het aantal gevechtsvliegtuigen dat in actie zal ko- 
men. 


De regels 400-790 stellen u in staat het gebied te kiezen dat u gaat verdedigen. 
Deze routine vergelijkt het aanvalsplan van de Luftwaffe met uw keuze en bere- 
kent welk percentage van uw toestellen de bommenwerpers zal onderschep- 
pen. 


De gevechtsroutines staan in de regels 8001290. Elk type toestel wordt een 
kanspercentage toebedacht om een vijandelijk toestel neer te schieten. De 
weersfactor, de inzetbaarheidsgraad en de onderscheppingsgraad (IR) worden 
dan gebruikt om te berekenen hoeveel toestellen van elk type meedoen aan de 
gevechten. De regels 2900-3100 gebruiken vervolgens het kanspercentage om 
de overwinningen te berekenen, terwijlelktypetoestel in de slag gaat. Het resul- 
taat wordt per toestel op het scherm gebracht. 


De routine die de resultaten van de bombardementen van de Luftwaffe nagaat, 
wordt aangeroepen in regel 90. Vervolgens krijgt de Luftwaffe op grond hiervan 
overwinningspunten. Regel 110 roept de regels aan die zorgen voor vergel- 
dingsaanvallen van het RAF-bommenwerperscommando en geeft overwin- 
ningspunten aan de RAF. 


Regel 1950 gaat na of het spel uit is. Zo ja, dan wordt het programma naar de 
eindroutine gestuurd. Mocht u het spel in eerste instantie te moeilijk vinden, 
dan kunt u uw kansen vergroten door 10 toe te voegen aan de waarden in regel 
1980-2020. 


Bent u nog geen 15 dagen onderweg, dan gaan we terug naar het begin van de 
hoofdlus om de volgende dag in september 1940 mee te maken. 


10 REM SLAG OM ENGELAND 

20 GOSUB 2090:REM INITIALISATIE 
30 GOSUB 2360:REM START 

40 GOSUB 120 

50 GOSUB 290 

60 GOSUB 400 

70 GOSUB 800 

80 GOSUB 1300 

90 GOSUB 1480 

100 GOSUB 1790 
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GOTO 1840 

CLS 

PRINT TAB(7);"R.A.F. INLICHTINGENDIENST'" 
PRINT TAB(14); "SEPTEMBER!" ;DD: PRINT 
PRINT"SCHATTING VAN BRUIKBARE VLIEGTUIGEN": 


PRINT 

P=RND(-TIME) 

PRINT B9$;" ="GINT(B9*GS*(A40*RND(1)+80)/100) 
PRINT B0$;" ="5INT(BO*GS*(4O*RND(1) +80) /100) 


PRINT HE$;'' INT (HI *GS*(40*RND(1 )+80)/100) 
PRINT DO$;" ="GINT(D7*GS*(40*RND(1)+80)/100) 
PRINT JU$;" ="GINT(JB*GS*(40*RND(1)+80)/100) 
PRINT ST$;" ="GINT(J7*GS*(40*RND(1)+80)/100): 
PRINT 

PRINT TAB(3);"11e LUCHTMACHTGROEP BESCHIKBAAR": 
PRINT 

PRINT SP$;" =";INT(SP*BS/100) 

PRINT HU$;" NT (HU*BS/100) 

PRINT BF$j" =";BF 

PRINT: PRINT'"BRUIKBAARHEID R.A.F.-BASES =!"';} 
BS;"s" 

GOSUB 2280 :RETURN 

CLS 

LOCATE 4,4:PRINT "DE "LU$;" BERAADT ZICH OP 
AANVALLEN" 

GC= INT(2000*RND(1)+1)+(LL*2)+CF 

IF GC<300 THEN GT=1:GC$="RADARSTATIONS" : 

GOTO 380 

IF GC<1200 THEN GT=3:GC$="LUCHTMACHTBASES" ; 
GOTO 380 

IF GC<1500 THEN GT=4:GC$="VLIEGTUIGFABRIEKEN'': 
GOTO 380 

IF GC<1800 THEN GT=2;GC$="ENGELSE KANAALHAVENS 
":GOTO 380 

IF GC<2001 THEN GT=5:GC$="KLEINE INDUSTRIE- 
STEDEN":GOTO 380 

GT=6 :GC$=" LONDEN" 

WE=150-INT(100*RND(1)+1):IF WF>100 THEN WF= 
100 

GOSUB 2230 :RETURN 

CLS:PRINT TAB(7)"11e GROEP'S INZETKEUZE:'"': 
PRINT:GOSUB 2240 

PRINT "WEERBERICHT:-";100-WF;"% BEWOLKT 

PRINT LU$;" VERLIEZEN =";LL$PRINT 
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PRINT "DE ";LU$;! HEEFT AANVALLEN AFGELAST 
OP: ''; 

IF (LL*2)+CF<301 THEN PRINT "NIETS" 

IF (LL*2)+CF>300 THEN PRINT "RADARSTATIONS" 
IF (LL*2)+CF>1199 THEN PRINT "11E GROEP'S 
LUCHTMACHTBASES" 

IF (LL*2)+CF>1799 THEN PRINT "ENGELSE 
KANAALHAVENS" 

IF (LL*2)+CF>2000 THEN PRINT "KLEINE 
INDUSTRIESTEDEN" 

X=0sY=11:GOSUB 2320 

PRINT"WAAR WILT U DE 11e GROEP'S VERDEDIG-": 
PRINT" ING CONCENTREREN?'': PRINT 

PRINT''1 =RADARSTATIONS'' : PRINT" 2=KANAALHAVENS" 
PRINT! 3=LUCHTMACHTBASES" : PRINT" 4= 
VLIEGTUIGFABRIEKEN" 

PRINT''5=KLEINE STEDEN": PRINT" 6=LONDEN" 
INPUT D 

IF D<1 OR D>6 THEN GOTO 540 

GOSUB 2240 

CLS:X=1:Y=3:GOSUB 2320 

PRINT"U BESLUIT TE VERDEDIGEN. ..:'' 

IF D=1 THEN PRINT'"DE RADARSTATIONS" 


IF D=2 THEN PRINT'DE KANAALHAVENS' 

IF D=3 THEN PRINT"DE LUCHTMACHTBASES'" 

IF D=4 THEN PRINT'"DE VLIEGTUIGFABRIEKEN" 
IF D=5 THEN PRINT"DE KLEINE STEDEN" 

IF D=6 THEN PRINT"LONDEN" 

GOSUB 2250 


PRINT:PRINT"DE '";LU$;" CONCENTREERT ZIJN" 
PRINT "AANVAL OP "';GC$:PRINT 

IF GT=D THEN IR=20 

IF GT-D=1 OR GT-D=-1 THEN IR=40 

IF GT-D=2 OR GT-D=-2 THEN IR=60 

IF GT-D=3 OR GT-D=-3 TEEN IR=80 

IF GT-D>3 OR GT-D<-3 THEN IR=100 

PRINT IR"% VAN UW VLIEGTUIGEN ONDERSCHEPT": 
PRINT:GOSUB 2240 

IF IR=100 THEN PRINT "11e GROEP IS 
UITSTEKEND UITGERUST! 1" 

IF IR=80 THEN PRINT "11e GROEP IS GOED 
UITGERUST! 1" 

IF IR=60 THEN PRINT "11e GROEP VERWACHT 
OVERMACHT" 


770 
780 


790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


1140 


1150 
1160 


IF IR=40 THEN PRINT "11e GROEP IS SLECHT 


UITGERUST!" 


IF IR=20 THEN PRINT "11e GROEP IS TOTAAL 


INGEMAAKT"' 

GOSUB 2220:RETURN 
ZY=INT(SP*BS*WF/1000000#*IR) +1 
KF=12:AZ$=SP$:BTe=1 

GOSUB 1080 
ZY=INT(HU*BS*WF/1000000#*IR) +1 
KF=7:AZ$=HU$:BT=1 

GOSUB 1080 
ZY=INT(BE*GT*WEF/600) +1 
KF=3:AZ$=BF$:BT=1 

GOSUB 1080 
ZY=INT(B9*GS*WF/100*.65) +1 
KF=14:A2$=B9$:BT=0 

GOSUB 1080 
ZY=INT(BO*GS*WF/100*.75) +1 
KF=5:AZ$=B0$:BT=0 
GOSUB 1080 
ZY=INT(H1*GS*WE/100*.4) +1 
KF=2:AZ$=HE$:BT=0 
GOSUB 1080 
ZY=INT(D7*GS*WE/100*,4) +1 
AZ$=DO$:BT=0 

GOSUB 1080 
ZY=INT(J7*GS*WEF/100*.3) +1 
AZ$=ST$;BT=0 

GOSUB 1080 
ZY=INT(J8*GS*WF/100*.4) +1 
KF=3:AZ$=JU$:BT=0 

GOSUB 1080 

RETURN 

CLS 


PRINT ZY;AZ$;'': AANVAL":GOSUB 2240 


FOR ZZ=1 TO ZY 


IF INT(100*RND(1))+1=<KF THEN KI=1 
IF KI=0 THEN PRINT AZ$;22;"..... 
IF KI=1 AND BT=1 THEN GOSUB 1180:PRINT AZ$; 


Z4;BZ$:GOSUB 2330: PH=PH+1 


IF KI=1 AND BT=0 THEN GOSUB 1260:PRINT AZ$; 


Z2;BZ$:GOSUB 2330:PH=PH+1 
KI=0:GOSUB 2260:NEXT ZZ 


CLS:PRINT AZ$;PH; "VLIEGTUIGEN UITGESCHAKELD' 
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1170 PH=0:GOSUB 2220:RETURN 

1180 SD=INT(100*RND(1))+1 

1190 IF SD<20 THEN D7=D7-15BZ$=DO$sLl=Ll+1: 
GOTO 1250 

1200 IF SD<44 THEN Hl=H1-1:BZ$=HE$:L2=L2+1 
GOTO 1250 

1210 IF SD<61 THEN J8=J8-1:BZ$=JU$:L3=L3+1 5 
GOTO 1250 

1220 IF SD<71 THEN J7=J7-1:B2$=ST$sL4=L4+1: 
GOTO 1250 

1230 IF SD<84 THEN B9=B9-1:BZ$=B9$:L5=L5 +1: 
GOTO 1250 

1240 BO=B0-15BZ$=B0$:L6=L6+1 

1250 LL=LL+15L0=L0+1 : RETURN 

1260 SD=INT(100*RND(1))+1 

1270 IF SD<76 THEN HU=HU-1:BZ$=HU$:L7=L7+1: 
GOTO 1290 

1280 SP=SP-15:BZ$=SP$:L8=L8+1 

1290 LI=LI+1 : RETURN 

1300 CLS 

1310 PRINT"VERLIEZEN SEPTEMBER" ;DD 

1320 PRINT"R,A.F." 


e 


1330 PRINT SP$;" =";L8 
1340 PRINT HU$;" =";L7 
1350 PRINT'"TOTAAL =";L9 


1360 PRINT:PRINT LU$:PRINT 
1370 PRINT HE$;"=";L1 


1380 PRINT DO$;" =!";L2 
1390 PRINT ="';L3 
1400 PRINT =";L4 
1410 PRINT =";L5 
1420 PRINT =";L6 


1430 PRINT “TOTAAL =";L0 

1440 GOSUB 2280 

1450 LO=0:L1=0:L2=0:L3=0:L4=0 

1460 L5=0:L6=0:L7=0:L8=0:L9=0 

1470 RETURN 

1480 CLS 

1490 PRINT "DE LUFTWAFFE-AANVAL'": PRINT 
1500 PRINT GC$ 

1510 GOSUB 2240:X=1:5Y=6:GOSUB 2320 
1520 IF GT=1 THEN GOTO 1570 

1530 IF GT=2 THEN GOTO 1620 
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1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 


1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


1730 


1740 
1750 
1760 
1770 


1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 


1890 
1900 
1910 
1920 


IF GT=3 THEN GOTO 1640 

IF GT=4 THEN GOTO 1700 

IF GT>4 THEN GOTO 1740 
ZZ=INT((H1+D7+J8+(J7*2)) *WE*WE*GS/500000! ) 
BS=BS-2Z 

PRINT "BRUIKBAARHEID R.A.F.-BASES IS" 

PRINT "VERMINDERD TOT";BS;"8" 
VP=VP+24:GOTO 1760 

ZZ=INT((H1+D7+J7+J8) *WE*WE*GS/1000000#) 
VP=VP+2Z:GOTO 1760 

KF=101-INT(BS*1,4):IF KF<1 THEN KF=l:AZ$= 
"DUITSE BOMMENWERPERS": ZY=24:BT=0 

GOSUB 2240:GOSUB 1080 
ZZ=INT(Z2/10):BS=BS-Z2 

PRINT "BRUIKBAARHEID R.A.F.-BASES IS! 

PRINT "VERMINDERD TOT";BS;"3" 
VP=VP+22:GOTO 1760 

ZZ=INT((H1+D74J7+J8) *WE*WE*GS/10000004#) 
P=RND(-TIME) 

IF INT(100*RND(1)+1)<WF THEN SR=SR-1 :HR=HR-3: 
Kel 

IF X=1 THEN PRINT "PRODUKTIE VERWOEST! !"';X=05 
VP=VP+223GOTO 1760 

ZZ=INT((H1+D7+J7) *WF*WE*GS/1000000#) 
VP=VP+Z2Z 

X=1:Y=12:GOSUB 2320 

PRINT ZZ;"WINSTPUNTEN ZIJN TOEGEKEND AAN DE "'; 
LU$ 

GOSUB 2220:RETURN 
Hl=H1+GR:D7=D7+GR:J8=J8+GR 
J7=J7+GR:B9=B9+GR:B0=B0+GR 

SP=SP+SR: HU=HU+HR: DD=DD+1 

IF GT<>1 AND GT<>3 THEN BS=BS+2 

RETURN 

CLS 

IF RND(-TIME)>.8 THEN GOTO 1900 

PRINT "BOMBARDEMENTEN OP FRANSE HAVENS OM" 
PRINT "INVASIESCHEPEN TOT ZINKEN TE BRENGEN" 
GOSUB 2240:PRINT "1 WINSTPUNT IS TOEGEKEND 
AAN DE R.A.F." 

VP=zVP-1:GOTO 1950 

PRINT "DE EERSTE MINISTER BEVEELT VERGELD-" 
PRINT "INGSAANVAL OP BERLIJN!" 

PRINT 
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1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 


2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
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PRINT "DE FUHRER IS FURIEUS" 
CF=CF+100 

GOSUB 2220:IF DD<15 THEN GOTO 40 

CLS 

PRINT"HET SPEL IS UIT" 

IF VP<46 THEN A$="R.A.F.":B$="TACTISCHE'" 
IF VP<56 THEN A$="R.A.F.":B$="TOTALE" 
IF VP>55 AND VP<65 THEN GOTO 2050 

IF VP>65 THEN A$=LU$:B$="TACTISCHE" 
IF VP>74 THEN A$=LU$:B$="TOTALE" 
X=l2Y=10:GOSUB 2320 

PRINT "DE ";A$;" BEHAALT EEN ";B$;" 
OVERWINNING'!':GOTO 2070 

PRINT "DE SLAG IS ONBESLIST" 

PRINT "GEEN VAN BEIDE BEHAALDE VOORDEEL" 
PRINT "DE '";LU$;' SCOORT";VP; "PUNTEN" 
END 

REM INITIALISATIE 

HE$="HE 111":;DO$="DO 17" 

JU$="JU 88":ST$="ST 87" 

B9$="BF 109":B0$="BE 110" 
SP$="SPITFIRE" : HU$="HURRICANE" 
BF$="LUCHTDOELGESCHUT" : LU$="LUFTWAFFE' 
HU=560:SP=190:BF=100:HR=12 
D7=300:H1=400:J8=270: SR=3 
J7=150:B9=330:B0=230:;GR=2 
GS=,55:BS=75;DD=1 

SCREEN 0 

KEY OFF 

RETURN 

FOR TD=1 TO 1000:NEXT TD 

FOR TD=1 TO 500:NEXT TD 

FOR TD=1 TO 400:NEXT TD 

FOR TD=1 TO 90:NEXT TD 

FOR TD=1 TO 10:NEXT TD 


RETURN 

LOCATE 5,22:PRINT'GA VERDER NA TOETSDRUK" 
A$=INKEY$ 

IF A$=""" THEN GOTO 2290 

RETURN 


LOCATE X,Y:RETURN 
REM GELUIDSROUTINE 
PLAY "O6C" 

RETURN 


2360 
2370 
2380 
2390 
2400 
2410 


2420 
2430 


2440 
2450 
2460 
2470 
2480 
2499 
2500 
2510 
2520 


REM TITEL 

CLS 

COLOR 15,1 

X=10:Y=12:GOSUB 2320 

PRINT"SLAG OM ENGELAND" 

FOR Y=12 TO 1 STEP -2:GOSUB 2320:PRINT"SLAG 
OM ENGELAND" 

FOR TD=1 TO 100:NEXT TD:NEXT Y 

FOR Y=12 TO 22 STEP 2:GOSUB 2320:PRINT"SLAG 
OM ENGELAND" 

FOR TD=1 TO 100:3NEXT TD:NEXT Y 

P=RND(-TIME) 

FOR Z=1 TO 250 

X=INT(RND(1)*40) 

Y=INT(RND(1)*22) 

LOCATE X,Y:PRIND"*" 

NEXT 2 

FOR TD=1 TO 1000:NEXT TD 

RETURN 


EIGENHEIMERHEERD 


Inditsimulatieprogramma worden alle problemen diezich bij de exploitatie van 
een boerderij kunnen voordoen, nagespeeld: het zware werk, het verdienen 
van genoeg geld om de vaste kosten te kunnen betalen, de strijd met het weer 
en de vakbonden en het stukgaan van machines. 


Elk jaar moet u beslissen of u geld leent van de bank, of u kapitaalgoederen ver- 
vangt, of u land en schapen aan— of verkoopt, of u de gewassen bevloeit, of u 
op vakbondseisen ingaat en welke soort gewas u aanplant. Daarna moet u het 
weer afwachten, dat de kwaliteit en de omvang van uw oagst bepaalt. 


In het begin van hetspel krijgt u, de hardwerkende boer, een leeftijdtoebedeeld, 
die ligt tussen 27 en 35 jaar. Het spel gaat door, jaar na jaar, tatu 50 bent en met 
pensioen gaat. 


Na de titelroutine verschijnt een beeldpagina met informatie over uw situatie. 
Hierin staat informatie over alles wat nodig is om met succes een boerderij 
draaiende te houden. Deze informatie moet u aandachtig doorlezen. U begint 
het spel met $3000 op de bank, een tractor, een vrachtauto, een schuur en een 
landarbeider om u te helpen. 
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Eigenheimerheerd bestaat uit 350 bunder landen 100 schapen. U krijgtte horen 
hoeveel de banku wil lenen en hoeveel u eventueel jaarlijks moetterugbetalen. 
Vervolgens heeft u de mogelijkheid geld te lenen van de bank. Heeft u al een 
lening en wilt die u eerder afbetalen, dan kunt u een negatieve lening nemen 
en zo het geld vervroegd aflossen. 


Nadat u de bankzaken hebtafgehandeld, krijgtu informatie over de kapitaalgoe- 
deren die mogelijk stukgegaan zijn en moeten worden vervangen. Daarna krijgt 
u de mogelijkheid goederen, land of schapen te kopen voor het komende jaar. 
Als u hier een negatief getal invoert, kuntu, alsu wilt, land of schapen verkopen. 
Verkoop van schapen is een goed middel om aan kontant geld te komen. Pro- 
beer de schapen te kopen als de prijs laag is en ze te verkopen bij een hoge prijs! 
U zult ook merken dat schapen zich vrij snel vermeerderen, dus moet u ervoor 
zorgen dat u voldoende land heeft om het aantal schapen te kunnen onderhou- 
den. 


De volgende stap in het spel is de beslissing of u de gewassen wilt bevloeien. 
Door bevloeiing heeft u meer kans op een goede oogst. Vervolgens moet u kie- 
zen welk gewas u gaat planten. De soorten gewassen worden aangegeven in 
volgorde van geldelijke opbrengst. 


Dan de kwestie van het weer, bedorven gewas door regen of droogte, of juist 
een extra hoge opbrengst door een prima weertje. Evenals in de werkelijkheid 
is er geen peil opte trekken; het enige dat u kunt doen is de weergoden aanroe- 
pen voor de juiste regenval. 


De vakbond van landarbeiders is het volgende probleem dat u tegenkomt. De 
vakbond probeert altijd een verbetering voor de leden te bewerkstelligen. De 
benodigde informatie verschijnt op het scherm en u moet besluiten wat u gaat 
doen. Het is niet verstandig om te snel in te gaan op de eisen van de vakbond. 
Zoals u weet worden de lonen dan te hoog. Wacht ute lang, dan kunnen er sta- 
kingen uitbreken, die leiden tot grote verliezen in de opbrengst. Conclusie: af- 
wegen is het devies. 


Vervolgens steekt de computer zich in het jasje van de boekhouder en berekent 
hoeveel geld u dit jaar heeft verdiend. Van de verdiensten worden de lonen van 
de arbeider(s) afgetrokken, evenals de afbetaling op de lening en de algemene 
onderhoudskosten. Is dat alles gebeurd, dan bent u een jaar verder en krijgt u 
weer met weersgesteldheden, vakbonden en opbrengsten te maken. 


Bereikt u de pensioengerechtigde leeftijd (50 jaar in het boerenvak), of gaat u 
in de loop van de jaren failliet, dan is het spel afgelopen. 


Programmabeschrijving: 


de regels 20-130 controleren de uitvoering van het programma. Hierin worden 
de verschillende benodigde routines aangeroepen. Regel 20 stuurt het pro- 
gramma naar de opstartroutine waarin alle beginwaarden voor het spel worden 
vastgelegd. De variabele CS in regel 3510 is de beginprijs voor een schaap. Re- 
gel 3530 dient ervoor om aan de hand van de variabelen X en Y een positie op 
het scherm te bepalen. 
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De instructie GOSUB 3800 in regel 30 roept de titelroutine aan, die met behulp 
van FOR-NEXT lussen de titel op het scherm PRINT. De volgende GOSUB in re- 
gel 40 PRINT de gegevens over uw situatie op het scherm. 


De routine die de bankzaken behandelt, loopt van regel 360-420 en wordt aan- 
geroepen door GOSUB 360 in regel 50. De regels 480-520 berekenen de rente 
en de afbetalingen. Het geleende geld wordt dan opgeteld bij het geld dat u op 
de bank heeft (variabele MB). 


De volgende routine gaat na of u eventueel kapitaalgoederen moet vervangen. 
Goederen gaan stuk in de regels 2760-2870. Deze goederen worden dan ver- 
vangen in regel 530-700. De kosten van vervanging worden automatisch afge- 
trokken van uw bankrekening. 


De routine van regel 740-1170 zorgt voorde aan-en verkoopfuncties in het spel. 
Deze routine zit logisch in elkaar, hetgeen uzelf kunt constateren bij zorgvuldige 
bestudering. 


De volgende routine stelt u in staat het land te bevloeien. Hierna wordt aange- 
geven hoeveel land u nodig heeft om al uw schapen te kunnen onderhouden 
en hoeveel land er beschikbaar is voor gewassen. Daarna kiest u het gewas dat 
u wilt aanplanten. Deze routine maakt gebruik van de uitputtingsgraad (EL), die 
de oogstopbrengst beïnvloedtenervoorzorgtdatu hetlandeen jaar braakmoet 
laten liggen, zodat het zich kan herstellen. 


De regenval wordt berekend en op het scherm gebracht door de routine in regel 
1530-1870. Deze routine (die wordt aangeroepen in regel 100) heeft grote ge- 
volgen voor de jaarlijkse opbrengst. Hoge percentages verrotte of verdroogde 
gewassen kunnen het resultaat zijn. 


GOSUB 1880 in regel 110 is de routine waarin de vakbond van landarbeiders 
probeert u een loonsverhoging af te dwingen voor haar leden. U kunt akkoord 
gaan met de eisen of een staking riskeren, die de oogst beïnvloedt. Aan u de 
keuze. 


Het bedrag dat u in een jaar heeft omgezet, wordt berekend in de routine die in 
regel 120 wordt aangeroepen. Uw netto inkomen wordt berekend in regel 2240, 
Bij deze berekening worden alle belangrijke factoren ingecalculeerd. 


Na terugkeer uit deze routine (RETURN), gaat het programma naar regel 2400, 
waar het jaar wordt afgerond met verschillende gebeurtenissen. Ten eerste 
wordt de toename van de kudde schapen berekend. Vervolgens rekent het pro- 
gramma uit of u voldoende land heeft voor de schapen en past het waar nodig 
de verschillende variabelen aan. Hier worden ook de prijsschommelingen voor 
de schapen berekend. 


In het volgende onderdeel (t/m regel 2910) wordt nagegaan of de boerderij in 
de loop van het jaar te lijden heeft gehad van een aantal mogelijke rampen. 
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Regel 2920 verhoogt uw leeftijd met een jaar (FA is de leeftijd van de boer) en 
gaat dan na of u de pensioengerechtigde leeftijd heeft bereikt. Is dat het geval, 
dan gaan we naar de eindroutine, waar wordt meegdedeeld hoe goed u heeft 
geboerd. Het zal u opvallen dat u erg veel moet verdienen om de kwalificatie 


‘uitstekende boer’ te verdienen. 


Bentu nog steeds geen 50, dan gaat het programma na of u niet failliet bent ge- 
gaan en gaat dan terug naar het begin van het hoofdprogramma voor nog een 


jaar 


Eigenheimerheerd. 


Uiteraard hebben we niet alle geheimen van het programma prijsgegeven; ga 
dus voorzichtig te werk. Veel plezier met het spel! 


REM EIGENHEIMERHEERD 

GOSUB 3420 

GOSUB 3800 

GOSUB 140 

GOSUB 360 

GOSUB 560 
GOSUB 740 
GOSUB 1180 
GOSUB 1290 

GOSUB 1530 

GOSUB 1880 

GOSUB 2180 

GOTO 2400 

X=11Y=3:GOSUB 3530 

PRINT"UW SITUATIE IS:'' 

PRINT! BANKBALANS $';MB 

PRINT" UW LEEFTIJD IS";FA 

PRINT 

PRINT" U HEBT: '" 

PRINT TR; "TREKKER" 

PRINT HD;"ZAAIMACHINE'" 

PRINT HV; '"'OOGSTMACHINE" 

PRINT TK; "VRACHTWAGEN" 

PRINT BN; "SCHUUR" 

PRINT 

PRINT AC;"BUNDER LAND" 

PRINT SH; "SCHAPEN" 

IF IB=0 THEN PRINT" GEEN IRRIGATIE" 
IF IB=1 THEN PRINT" GEIRRIGEERD LAND" 
PRINT EL;"% LANDUITPUTTING" 

PRINT LR; "ARBEIDERS! 

PRINT " S';PR;''= KOSTEN PER ARBEIDER" 
PRINT " S";CL;"= PRIJS PER BUNDER LAND" 
PRINT" $";BL;"= KREDIETLIMIET BANK" 
PRINT!" $";RP;!"'= TERUGBETALINGEN" : RETURN 
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360 GOSUB 3740:GOSUB 3640 

370 PRINT CHR$(11);"WILT U VAN DE BANK LENEN 
(I/N) "; 

380 INPUT A$ 

390 GOSUB 3740 

400 IF A$<>"J" AND A$'N" THEN GOTO 370 

410 IF A$="N" THEN RETURN 

420 GOSUB 3570 

430 PRINT CHR$(11);"HOEVEEL WILT U LENEN "; 

440 INPUT AB 

450 GOSUB 3740 

460 IF AB>BL THEN PRINT"ZOVEEL WIL DE BANK U NIET 
LENEN! ":GOSUB 3720:GOSUB 3550 

470 IF AB>BL THEN GOSUB 3740:GOTO 430 

480 YL=50-FA 

490 IF YL>20 THEN YL=20 

500 TB=TB+AB:BL=BL-AB 

510 RP=INT(TB*2.2/YL) 

520 MB=MB+AB 

530 GOSUB 3560:GOSUB 3740;GOSUB 140 

540 PRINT CHR$(11);"UW TERUGBETALING = $";RP 

550 GOSUB 3560:GOSUB 3740 :sRETURN 

560 YY=YY+1:IF YY<2 THEN RETURN 

570 IF TR=1 THEN CB=CB+1:GOTO 600 

580 PRINT:PRINT"U MOET EEN TRACTOR KOPEN ($5000)'"'s 
GOSUB 3600:GOSUB 3580 

590 MB=MB-5000:TR=1 

600 IF TK=1 THEN CB=CB+1:GOTO 630 

610 PRINT:PRINT'U MOET BEN TRUCK KOPEN ($10000)”: 
GOSUB 3600:GOSUB 3580 

620 MB=MB-10000:TK=1 

630 IF BN=0 THEN GOTO 650 

640 IF AC/BN<500 THEN GOTO 680 

650 PRINT:PRINT"U MOET EEN SCHUUR BOUWEN ($3000)": 
GOSUB 3600:GOSUB 3580 

660 MB=MB-3000 : BN=BN+1 :CB=CB-1 

670 GOTO 740 

680 IF DB=1 THEN CB=CB+1;:GOTO 710 

690 PRINT:PRINT"U MOET EEN NIEUWE PUT SLAAN ($2000)"; 
GOSUB 3600:GOSUB 3580 

700 MB=MB-2000:CB=CB-1 :DB=1 

710 IF CB=3 THEN PRINT CHR$(11);"U HOEFT DIT JAAR GEEN 
KAPITAAL-" 

720 IF CB=3 THEN PRINT"GOEDEREN TE VERVANGEN": 


60 


730 
740 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 


900 


910 


920 
930 


940 
950 


960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 


1050 


GOSUB 3550 

CB=0:CLS:GOSUB 140:GOSUB 3760 :RETURN 
CLS:PRINT"U HEBT $";MB;"OP DE BANK"':PRINT: 
PRINT: PRINT 

PRINT"WAT WILT U KOPEN?" :PRINT 

PRINT"1 = ZAAIMACHINE ($15000)": PRINT 


PRINT'2 = OOGSTMACHINE ($15000)":PRINT 
PRINT"3 = LAND ($";CL;"/BUNDER)"': PRINT 
PRINT"4 = SCHAPEN ($";CS;"'/STUK)'"s PRINT 
PRINT"5 = HANDEL AFSLUITEN":PRINT: PRINT 


PRINT"NEGATIEF NUMMER IS VERKOPEN" 
INPUT C$ 
IF C$<"1" OR C$>"5'" THEN GOTO 740 
IF C$="1"" THEN GOSUB 3740:GOTO 890 
IF C$=""2" THEN GOSUB 3740:GOTO 950 
IF C$="3"" THEN GOSUB 3740:GOTO 1010 
IF C$="4" THEN GOSUB 3740:GOTO 1090 
IF C$="5" THEN GOSUB 3740:G0T0 1170 
IF HD=1 THEN PRINT CHR$(11);"U HEBT AL EEN 
ZAAIMACHINE":GOSUB 3720 
IF MB<15000 THEN PRINT CHR$(11);'"U HEBT 
NIET GENOEG GELD' 
IF HD=1 OR MB<15000 THEN GOSUB 3550:GOSUB 
3740:GOTO 740 
HD=1 :MB=MB-15000 
PRINT CHR$(11);''U HEBT EEN ZAAIMACHINE 
GEKOCHT" 
GOSUB 3550:GOSUB 3740:G0TO 740 
IF HV=1 THEN PRINT CHR$(11);"U HEBT AL EEN 
OOGSTMACHINE!'";GOSUB 3720 
IF MB<15000 THEN PRINT CHR$(11);"U HEBT 
NIET GENOEG GELD" 
IF HV=1 OR MB<15000 THEN GOSUB 3550:GOSUB 
3740: GOTO 740 
HV=1 :MB=MB-15000 
PRINT CHR$(11);"U HEBT EEN OOGSTMACHINE GEKOCHT" 
GOSUB 3550:GOSUB 3740:GOTO 740 
PRINT CHR$(11);"HOEVEEL BUNDER WILT U KOPEN"; 
INPUT AS:IF AS<O AND ABS(AS)>AC THEN GOTO 740 
IF AS*CL>MB THEN GOSUB 3740:PRINT CHR$(11);" 
U KUNT MAAR";INT(MB/CL); "BUNDER KOPEN" 
IF AS*CL>MB THEN GOSUB 3720:GOSUB 3550 :GOSUB 
3740:GOTO 740 
AC=AC+AS:MB=MB-(AS*CL):GOSUB 3740 


61 


1060 


1070 
1080 
1090 
1100 
1110 


1120 


1130 
1140 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
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IF AS<O THEN PRINT CHR$(11);"U HEBT';ABS (AS) ;" 
BUNDER VERKOCHT":GOTO 1080 

PRINT CHR$(11);"U HEBT";AS;"'BUNDER GEKOCHT" 
GOSUB 3550:GOSUB 3740:GOTO 740 

PRINT CHR$(11);"HOEVEEL SCHAPEN WILT U KOPEN2": 
INPUT SS;IF SS<0 AND ABS(SS)>SH THEN GOTO 740 
IF SS*CS>MB THEN GOSUB 3740:PRINT CHR$ (11); "u 
KUNT MAAR" ;INT(MB/CS); "SCHAPEN KOPEN" 

IF SS*CS>MB THEN GOSUB 3720:GOSUB 3550:GOSUB 
3740:GOTO 740 

SH=SH+SS:MB=MB-(SS*CS):GOSUB 3740 

IF SS<O THEN PRINT CER$(11);"U HEBT'"';ABS (SS) ; 
“SCHAPEN VERKOCHT":GOTO 1160 

PRINT CHR$(11);"U HEBT";SS; "SCHAPEN GEKOCET" 
GOSUB 3550:GOSUB 3740:GOTO 740 

CLS: RETURN 

X=7:Y=6:GOSUB 3530 

PRINT"U HEBT";MB;'"OP DE BANK" 

GOSUB 3640:X=4;5Y=10:GOSUB 3530 

PRINT"WILT U UW LAND BEVLOEIEN (J/N) " 
X=85Y=12:GOSUB 3530 

PRINT"(KOST $2 PER BUNDER)"; 

INPUT WI$ 

IF WI$<>"J" AND WI$<>"N" THEN GOTO 1180 

IF WI$="N!" THEN IB=0:IP=1 

IF WI$="J" THEN IB=1:IP=1.3:MB=MB-(AC*2) 
GOSUB 3570:CLS:GOSUB 140:RETURN 

GOSUB 3760:CLS 

SL=INT(SH/5):PL=AC-SL 

PRINT'"U HEBT" ;AC; "BUNDER" : PRINT 

PRINT"UW SCHAPEN HEBBEN";SL;"NODIG" 

PRINT'"OM TE GRAZEN" 

PRINT 

PRINT"U HEBT";PL;"BUNDER OM UW GEWAS TE" 
PRINT"VERBOUWEN"' : PRINT 

PRINT"DE UITPUITINGSGRAAD VAN UW LAND" 
PRINT"IS:-";EL; "8": PRINT 

PRINT"WAT WILT Us-"sPRINT 

PRINT"1 = GERST" 


PRINT'2 = TARWE" 
PRINT'"3 = ERWIEN" 
PRINT"4 = BRAAK LATEN LIGGEN":PRINT 


PRINT"WELK GEWAS WILT U VERBOUWEN" ; 
INPUT P$ 


1460 
1470 


1480 


1490 
1500 
1510 
1520 
1530 
1540 


1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 


1700 
1710 
1720 
1730 
1740 


1750 
1760 


1770 


1780 
1790 


1800 


IF P$<>"1' AND P$>"4'! THEN GOTO 1290 

IF EL>99 AND P$<>"'3" AND P${>"4" THEN PRINT: 
PRINT"UW LAND IS UITGEPUT" 

IF EL>99 AND P$<»"3" AND P${>"4" THEN GOSUB 
3720:GOSUB 3570:GOTO 1290 

IF P$="1" THEN GOTO 3270 

IF P$="2"" THEN GOTO 3310 

IF P$="3'! THEN GOTO 3350 

IF P$="4'"" THEN GOTO 3390 

X=63Y=5:GOSUB 3530 

PRINT"HOE ZIT HET MET DE REGENVAL?":GOSUB 
3640 

Q=RND(-TIME) 

WW=08FOR XX=1 TO 40 

IF RND(1)>.5 TEEN WW=WW+1 

NEXT XX 

FOR Vv=0 TO 39 

VPOKE 880+Vv,219 

NEXT vv 

FOR VV=0 TO 5 

VPOKE 640+VV,219 

NEXT vv 

FOR VVv=1 TO Www 

VPOKE 760+VV, 249 

GOSUB 3580 

NEXT vv 

PRINTsPRINT:PRINT:PRINT"DIT JAAR REGENDE 
HET: "; INT (WW*2.54) ; "CENTIMETER": PRINT: PRINT 
GOSUB 3550:GOSUB 3760 

COLOR 11 

CLS 

PRINT"DIT JAAR REGENDE HET"; ENT(WW*2.54) ; 
“"CENEIMETER": PRINT: PRINT 

IF WW<10 THEN PRINT"GROTE DROOGTE LLL": PRINT: 
PRINT:GOSUB 3720 

IF WW<10 THEN DI=INT(RND(1)*50)+1 

IF WW<10 THEN PRINT"VERLOREN GEWAS: "";100-DI; 
"8! GOSUB 3540 :RETURN 

IF WW<19 THEN PRINT "DROOGTE 11":PRINT: PRINT: 
GOSUB 3720 

IF WW<19 THEN DI=50+INT(RND(4)*50) 

IF WW<19 THEN PRINT"VERLOREN GEWAS :"';100-DI; 
“&"sGOSUB 3540 : RETURN 

IF WW<23 THEN PRINT"PRIMA WEERTJE 111":PRINT: 
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1810 
1820 


1830 
1840 


1850 
1860 
1870 


1880 


1890 
1900 
1910 


1920 
1930 
1940 
1950 
1960 
1970 
1980 


1990 
2000 
2010 
2020 


2030 
2040 


2050 
2060 


2070 
2080 
2090 


2100 
2110 


PRINT:GOSUB 3600 

IF WW<23 THEN DI=100:GOSUB 3580 :RETURN 

IF WW<31 THEN PRINT"WATERSCHADE !11":PRINT: 
PRINT:GOSUB 3720 

IF WW<31 THEN DI=50+INT(RND(1)*50) 

IF WW<31 THEN PRINT"GEWAS ROT: ";100-DI;"'g"'s 
GOSUB 3540 :RETURN 

PRINT "OVERSTROMINGSRAMP! 1 1'"s PRINT: PRINT 
DI=INT(RND(1)*50) +1 

PRINT"GEWAS ROT:";100-DI;"8":GOSUB 3540: 
RETURN 

CLS:LOCATE 4,4:PRINT"UW ARBEIDERS EISEN 
LOONSVERHOGING" 

IF UM=1 THEN GOTO 1960 

WI=INT(20*RND(1)) +1 

PRINT TAB(7)"ZE EISEN";WI;"& ERBIJ":PRINT: 
PRINT 

SC=INT(100*RND(1)) +1 

PRINT TAB(A)"ER IS EEN";SC;'"8 KANS DAT ZE" 
PRINT TAB(4)"GAAN STAKEN" 

IF UM=0 THEN GOTO 2040 

GOSUB 3550 

PRINT TAB(2)"OMDAT U HUN LAATSTE CLAIM" 
PRINT TAB(2)'"HEBT AFGEWEZEN HEBBEN ZE HUN 
EISEN" 

PRINT TAB(2) "VERHOOGD" 

WI=INT(WI*1.5)+3 

SC=INT(SC*2)+5 

PRINT TAB(2)'"DE BONDEN VRAGEN NU'': PRINT 
TAB(2)WI;'"% LOONSVERHOGING" 

PRINT:PRINT'" DE KANS DAT ZIJ GAAN STAKEN 
Is';sc; ugn 

PRINT;:PRINT"WILT U DE VERHOGING BETALEN 
(J/N) " 

A$=INKEY$:IF A$="" THEN GOTO 2050 

IF A$="J" THEN PR=INT(PR*WI/100)+PR:UM=0: 
SK=1:WI=0:SC=0:GOTO 2160 

IF A$<>"N" THEN GOTO 2040 

CLS 

PRINT:PRINT:PRINT TAB(1)"DE VAKBONDSLEIDERS 
ZIJN NU IN BERAAD":GOSUB 3550 
UB=INT(100*RND(1)) +1 

IF UB>SC THEN PRINT:PRINT TAB(1)"ZE HEBBEN 


BESLOTEN NIET TE STAKEN" 

IF UB>SC THEN SK=1;UM=1:GOTO 2160 
PRINT:PRINT TAB(5)"UW ARBEIDERS STAKEN": GOSUB 
3560 

PRINT:PRINT TAB(1)'UW OOGST BRENGT 30% MINDER 
oP” 

UM=0:SC=0:WI=0:SK=. 7 

GOSUB 3760 

RETURN 

CLS 

IF HD=0 THEN DF=1 

IF HD=1 THEN DF=1.5 

IF HV=0 THEN VI=1 

IF HV=1 THEN VI=1.5 

PRINT:PRINT:PRINT TAB(2)'"NU MAAR ZIEN WAT DE 
OPBRENGST IS...'':GOSUB 3550 
IN=INT(BP*WP*PPXFP*DI/100*DF*VISBISSK*PL*IP* 
20) 

CLS 

LOCATE 6,3:PRINT"UW OOGSTOPBRENGST = $"';IN 
MB=MB+IN:GOSUB 3600:GOSUB 3580 

CLS 

LOCATE 0,3:PRINT"NIEUWE BANKBALANS=$";MB 
PRINT:PRINT"BEDRIJFSKOSTEN: AF $''; (PR*LR) 
PRINT:PRINT"TERUGBETALINGEN BANK: AF $"';RP 
MB=MB- ( PRÉLR) -RP 

PRINT:PRINT:PRINT"BLIJFT OVER: $'';MB 
LR=INT(AC/500) +1 

X=INT(3*RND(1)) +1 

IF X=1 THEN BL=BL+1000 
CL=INT(15*RND(1))*INT(CL/100)+CL 

GOSUB 3760 

RETURN 

X=INT(SO*RND(1)) +1 

Y=INT(X*SH/100) 

SH=SH+Y 

CLS 

PRINT'"'UW KUDDE IS UITGEBREID MET"';Y; "SCHAPEN" 
PRINT"U HEBT NU";SH; "SCHAPEN" 

IF AC*5<SH THEN SH=AC*5:PRINT 

IF AC*5=SH THEN PRINT"OP UW";AC;"BUNDER LAND" 
IF AC*5=SH THEN PRINT"KUNNEN SLECHTS'";SH;" 
SCHAPEN GRAZEN" 

GOSUB 3550 :X=INT(6GO*RND(1))-20 

IF X<0 THEN A$="GEDAALD" 
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2510 
2520 
2530 


2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 


2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 


2880 
2890 
2900 
2910 
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IF X>0 THEN A$="GESTEGEN" 

PRINT 

IF X=0 THEN PRINT'"DE WAARDE VAN UW SCHAPEN 
IS HETIZELFDE":GOTO 2560 

PRINT"DE WAARDE VAN UW SCHAPEN IS" 
PRINT A$;" MET";ABS(X);"3" 

GOSUB 3600:GOSUB 3570 
CS=INT(CS*X/100)+CS 

CLS: X=0:Y=10:GOSUB 3530 
X=INT(SO*RND(1)+1)-INT(AC/40) 

IF X<1 THEN X=1 

IF X=1 THEN GOTO 2700 


IF X=2 THEN GOTO 2740 
IF X=3 THEN GOTO 2770 
IF X=4 THEN GOTO 2790 
IF X=5 THEN GOTO 2810 
IF X=6 THEN GOTO 2830 
IF X=7 THEN GOTO 2850 
IF X=8 THEN GOTO 2870 
GOTO 2910 


X=INT(20*RND(1)+1) 

Y=INT(X*SH/100) 

PRINT"ENGE ZIEKTE DOODDE'";Y; "SCHAPEN" 
SH=SH-Y:GOTO 2890 

X=INT(10*RND(1) +1) 

PRINT"DE BLIKSEM TROF";X;"&$ VAN DE SCHAPEN": 
GOSUB 3560:CLS 

BT=BT-(X/100):BB=1:GOTO 2890 
PRINT'"VRACHTWAGEN TOTAL LOSS" 
TK=IK-1:GOTO 2890 

PRINT"TREKKER MOET WORDEN VERVANGEN" 
TR=IR-1:GOTO 2890 

PRINT" JAMMER, SCHUUR VERBRAND" 
BN=BN-1:GOTO 2890 

PRINT" ZAAIMACHINE INGESTORT, PECH" 
HD=HD-1:GOTO 2890 

PRINT"OOGSTMACHINE IN DE PRAK" 
HV=HV-1:GOTO 2890 

PRINT"UW IRRIGATIEPUT IS OPGEDROOGD":GOSUB 
3570 


DB=0 
GOSUB 3720 
GOTO 2920 


PRINT TAB(1)'"VROUWE FORTUNA HEEFT U 


2920 
2930 
2940 


2950 
2960 
2970 


2980 
2990 
3000 


3010 
3020 


3030 
3040 
3050 


3060 
3070 
3080 


3090 
3100 


3110 


3120 
3130 


3140 


3150 
3160 
3170 


3180 
3190 
3200 
3210 


TOEGELACHEN"': GOSUB 3640 

GOSUB 3560:FA=FA+1:BB=BB-1:IF BB<O THEN 
BT=1:BB=0:CLS 

IF FA=>50 THEN GOSUB 3680:X=8:Y=6:GOSUB 

3530 

IF FA=>50 THEN PRINT"U BENT GEPENSIONEERD''; 
COLOR 11 

IF FA=>50 THEN GOTO 3000 

IF MB+BL<O THEN GOSUB 3720:;X=85Y=6:GOSUB 3530 
IF MB+BL<O THEN PRINT"U BENT BANKROET" :J=0: 
PRINT: PRINT 

IF MB+BL<O THEN GOTO 3050 

GOTO 40 

FS=MB+ (AC*CL) + (TR*2000)+(TK*2000)+(BN*1000) + 
(HR*5000)+(HV*5000) + (SH*CS) 

GOSUB 3550 

PRINT:PRINT:;PRINT TAB(6)"DE WAARDE VAN UW 
BEZIT IS $";FS 

J=INT(FS/100000!) 

GOSUB 3560 

IF J=0 THEN PRINT"DAT WORDT DE BIJSTAND 
MIJN VRIEND":FOR TD=1 TO 2000:NEXT TD 

IF J=1 THEN PRINT"U BENT EEN ECHTE SAPPELAAR" 
IF J=1 THEN PRINT"HET HOUDT NIET OVER" 

IF J=1 THEN PRINT"NA AL DIE HARDE JAREN! :FOR 
TD=1 TO 3000:NEXT TD:GOTO 3210 

IF J=2 THEN PRINT"U BENT EEN GESLAAGDE BOER! 
IF J=2 THEN PRINT"UW PENSIOEN ZAL NIET EEN 
VAN 

IF J=2 THEN PRINT"DE LAAGSTE ZIJN":FOR TD=1 
TO 3000:NEXT TD:GOTO 3210 

IF J=3 THEN PRINT"U BENT EEN GOEDE BOER" 

IF J=3 TEEN PRINT"U ZULT HET ER NU VAN 
KUNNEN NEMEN" 

IF J=3 THEN PRINT"TIJDENS UW PENSIOEN": FOR 
TD=1 TO 3000:NEXT TDsGOTO 3210 

IF J<4 THEN GOTO 3210 

FOR X=1 TO 6 

PRINT:PRINT TAB(5)"U BENT EEN UITSTEKENDE 
BOER!" 

PRINT:GOSUB 3600 

NEXT X 

FOR TD=1 TO 3000:NEXT TD 

CLS 
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LOCATE 10,10:PRINT"NOG EEN SPEL (J/N) 
A$=INKEY$ 

IF A$="J" THEN RUN 

IF A$=!"!N" THEN LOCATE 10,12:PRINT"TOT 
ZIENS...."sEND 

GOTO 3230 

PRINT:PRINT"U HEBT GERST GEZAAID":GOSUB 3560 
BP=RND(1)*5/10+1 

WP=1sPP=1:FP=1 

EL=EL+152CLS: RETURN 

PRINT:PRINT"U HEBT TARWE GEZAAID":GOSUB 3560 
WP=RND(1 )*3/10+1 

BP=1 :PP=1:FP=1 

EL=EL+10 : CLS: RETURN 

PRINT:PRINT"U HEBT ERWTEN GEZAAID" :GOSUB 
3560 

PP=RND(1)*1/10+1 

BP=1:WP=13FP=1 

EL=EL+10: CLS: RETURN 

PRINT: PRINT'"UW LAND LIGT BRAAK":GOSUB 3560 
FP=0;EL=0 

CLS : RETURN 

REM INITIALISATIE 

CLS 

KEY OFF 

WIDTH 40 

MB=3000:TR=1 :BN=1 :DB=1 
TK=1:AC=350:SH=100:BT=1 
CL=100:PR=2000:BL=5000 

P=RND(-TIME) 

FA=INT(RND(1)*8)+27 
LR=1:CS=INT(10*RND(1))+8 

CLS : RETURN 

LOCATE X,Y:RETURN 

FOR TD=1 TO 1000:NEXT TD 

FOR TD=1 TO 1000:NEXT TD 

FOR TD=1 TO 500:NEXT TD 

FOR TD=1 TO 400:NEXT TD 

FOR TD=1 TO 100:NEXT TD 

RETURN 

REM GELUIDSROUTINE 

PLAY"O4c" 

GOSUB 3560 

RETURN 


3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 


REM GELUIDSROUTINE 

PLAY"O5C!"' 

GOSUB 3560 

RETURN 

REM GELUIDSROUTINE 

PLAY"O6C'"' 

GOSUB 3560 

RETURN 

REM GELUIDSROUTINE 

RETURN 

REM EERSTE REGEL LEEGMAKEN “kt 
PRINT CHR$(T1);SPC(80) : RETURN 
LOCATE 8,0:PRINT"GA VERDER NA TOETSDRUK'" 
B$=INKEY$ 

IF B$="" THEN GOTO 3770 

RETURN 

REM TITELPAGINA 

CLS 

FOR TX=1 TO 23 

REM 

PRINT TAB(TX)"EIGENHEIMERHEERD" 
FOR TD=1 TO 50:NEXT TD 

REM 

NEXT TX 

FOR TD=1 TO 1000;NEXT TD 

CLS 

RETURN 
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DAAG DE COMPUTER UIT 


Boter, kaas en eieren in 3-D 
Ontcijfer X-code 

Othello 

Schaakbord NIM 


Hersenbreker 
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BOTER, KAAS EN EIEREN IN 3-D 


Dit programma zorgt voor een bijna onvoorstelbaar spel Boter, Kaas en Eieren 
in drie dimensies. Wanneer u het spel speelt, moet u zich een driedimensionaal 
bord proberen voor te stellen. Als u dat niet doet, zult u waarschijnlijk fouten 
maken. 


Bij uitvoering van het programma wordt eerst de titel op het scherm gebracht. 
Daarna wordt het scherm gewist en een speelbord afgebeeld. Dit bord bestaat 
uit een speelgedeelte aan de rechterkant van het scherm en een sleutel tot het 
speelbord aan de linkerkant. U moet zich voorstellen dat de borden op elkaar 
zijn gestapeld: boven, midden en onder. U ziet de borden van boven. De com- 
puter zet de kruisjes en u plaatst de nulletjes. In dit spel hebben we de letter O 
gebruikt in plaats van het cijfer 0. 


In de regels 40-60 wordt willekeurig bepaald wie er bij elke spelronde mag be- 
ginnen. Als u aan de beurt bent, geeft de computer dat aan. Als u gaat zetten, 
voert u het nummer in van het gebied (het driedimensionale veld) dat u wilt be- 
zetten. Dit nummer wordt aangegeven op het sleutelspelbord aan de linkerkant 
van het scherm. 


Om te winnen moet u drie nulletjes op een rij zien te krijgen, verticaal, horizon- 
taal of diagonaal. Dat geldt niet alleen voor een plat vlak, zoals bij het gewone 
Boter, Kaas en Eieren, maarookvoor3nullen opeenrij ‘doorde borden heen’. 
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Dat kunt u bijvoorbeeld bereiken door de gebieden met de getallen 1, 10 en 19 
of 5, 14 en 23te bezetten. Drie op een rij langs een van de diagonale assen bete- 
kent ook winst: bijvoorbeeld 1, 14 en 27 of 9, 14 en 19. Let op: een combinatie 
van 1, 11 en 21 is geen winnend rijtje. Alle diagonale rijen door de kubus heen 
moeten in elk geval gebied 14 op het middelste bord bezetten om als winnend 
rijtje te kunnen gelden. 


Het programma speelt een oneindig aantal ronden en houdt bij hoeveel keer 
de speler en hoeveel keer de computer heeft gewonnen. Alsu wiltstoppen, druk 
dan op CTRL-STOP. 


In regel 210-380 worden het bord en de sleutel tot het bord afgebeeld. Het 
werkelijke speelgebied wordt afgebeeld door een karakter af te drukken (door 
middel van de PRINT-instructie CHR$(X)), dat —vertaald in ASCII-code —is op- 
geslagen in elke locatie van de variabele A(X). Deze waarde kan de ASCII-code 
voor X,Ozijn ofeen punt. De punt wordt gebruiktom een leeg veld aante geven. 


De computer gebruikt de lange routine van de regels 1070-2470 om zijn zet te 
doen. Hier is zeker niet op de meest effectieve manier geprogrammeerd. Dat is 
met opzet gedaan. Deze vorrh is de meest leesbare en zo zijn foutjes ook makke- 
lijker op te sporen. De regellengte blijft binnen de 80 karakters, zodat de regels 
leesbaar blijven. Zo wordt vermeden dat u lange zinnen moet opdelen, waar- 
door rommelige stukjes ontstaan. Tenslotte is het ook makkelijker om alles in 
tetypen. Als u bijvoorbeeld de regels 1090 en 1150 intypt, kunt u de cursorbestu- 
ringstoetsen gebruiken om regelnummers en getalswaarden zo te veranderen 
dat u bijna iedere andere regel in deze routine kunt overnemen zonder elke keer 
alles te moeten intypen. 


10 REM BOTER KAAS & EIEREN IN 3-D 

20 GOSUB 3020:REM STARTROUTINE 

30 GOTO 2860:REM INITIALISATIE 

40 GT=RND(-TIME):IF GT>.5 THEN LOCATE 5,6:PRINT' 
U MAG EERST" 

50 IF GT>.5 THEN GOSUB 3210 

60 IF GT».5 THEN FOR Z=1 TO 2000:NEXT Z:GOTO 160 

70 GOSUB 220:REM PRINT HET BORD 

80 GOSUB 400:REM WIN CHECK 

90 IF Q<>0 OR M=99 THEN 2710:REM EINDE 

100 M=0 

110 GOSUB 1070:REM EEN BEWEGING MAKEN 

120 IF M=0 OR A(M)<>E THEN M=0:GOSUB 2540 

130 PRINT"IK SPEEL OP";M 

140 FOR TD=1 TO 2000:NEXT TD 
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A(M)=B 

GOSUB 220:REM PRINT HET BORD 

GOSUB 400:REM WIN CHECK 

IF Q<>0 OR M=99 THEN 2710:REM EINDE 
GOSUB 1000sREM BEWEGING VAN DE SPELER 
GOTO 70 

REM ok akk of oke ok afk ok oke ok ok akk ok afs afk ok ok ak ok ok af ole ok akk ok ok zie oke 

REM PRINT HET BORD 

CLS 

GOSUB 3230 

PRINT TAB(8); "BOVENSTE": PRINT 

PRINT TAB(8);" 1 2 3 ";CHR$(A(1));" "4 
CHR$(A(2));" “;CHR$(A(3)) 

PRINT TAB(8);" 4 5 6 ";CHR$(A(4));" "5 
CHR$(A(5)) 3" ";CHRS(A(6) ) 

PRINT TAB(8);" 7 8 9 ";CHR$(A(7));" "; 
CHR$(A(8));" '";CHR$(A(9)) 

PRINT:PRINT TAB(8); "MIDDELSTE! : PRINT 
PRINT TAB(8);"10 11 12 ";CHR$(A(10));" "; 
CHR$(A(11)) 5" ";CHRS(A(12)) 

PRINT TAB(8);"13 14 15 ";CHR$(A(13));" "5 
CHR$(A(14)) ;" ";CHR$(A(1S)) 

PRINT TAB(8);"16 17 18 ";CHR$(A(16));" " 
CHR$(A(17));" ";CHRS(A(18)) 

PRINT: PRINT TAB(8); "ONDERSTE! : PRINT 
PRINT TAB(8);"19 20 21 ";CHR$(A(19));" 
CHR$(A(20));" ";CHR$(A(21)) 

PRINT TAB(8);"22 23 24 ";CHR$(A(22));" "; 
CHR$(A(23));"" “;CHR$(A(24)) 

PRINT TAB(8);'"25 26 27 ";CHR$(A(25));" "5 
CHR$(A(26));" ";CHR$(A(27)) 

PRINT 

RETURN 

REM ok ole ope of ok ok si of je ojee ok ae ok oale oo ok ok oo ok ok ok 


REM WIN CHECK 


ze 


IF A(1)=E THEN 480 

IF A(1)=A(2) AND A(2)=A(3) THEN Q=1:RETURN 
IF A(1)=A(4) AND A(4)=A(7) THEN Q=1 :RETURN 
IF A(1)=A(5) AND A(5)=A(9) THEN Q=1:RETURN 
IF A(1)=A(10) AND A(10)=A(19) THEN Q=1: 
RETURN 
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IF A(1)=A(14) AND A(14)=A(27) THEN Q=1: 
RETURN 

IF A(10)=E THEN 520 

IF A(10)=A(11) AND A(11)=A(12) THEN Q=10: 
RETURN 

IF A(10)=A(13) AND A(13)=A(16) THEN Q=10: 
RETURN 

IF A(10)=A(14) AND A(14)=A(18) THEN Q=10: 
RETURN 

IF A(19)=E THEN 560 

IF A(19)=zA(20) AND A(20)=A(21) THEN Q=19: 
RETURN 

IF A(19)=A(22) AND A(22)=A(25) THEN Q=19: 
RETURN 

IF A(19)=A(23) AND A(23)=A(27) THEN Q=19: 
RETURN 

IF A(2)=E THEN 590 

IF A(2)=A(5) AND A(5)=A(8) THEN Q=2:RETURN 
IF A(2)=A(11) AND A(11)=A(20) THEN Q=2: 
RETURN 

IF A(11)=E THEN 610 

IF A(11)=A(14) AND A(14)=A(17) THEN Q=11: 
RETURN 

IF A(20)=E THEN 630 

IF A(20)=A(23) AND A(23)=A(26) THEN Q=20: 
RETURN 

IF A(3)=E THEN 680 

IF A(3)=A(6) AND A(6)=A(9) THEN Q=3:RETURN 
IF A(3)=A(12) AND A(12)=A(21) THEN Q=3:RETURN 
IF A(3)=A(5) AND A(5)=A(7) THEN Q=3:RETURN 
IF A(3)=A(14) AND A(14)=A(25) THEN Q=3:RETURN 
IF A(12)=E THEN 710 

IF A(12)=A(15) AND A(15)=A(18) THEN Q=12: 
RETURN 

IF A(12)=A(14) AND A(14)=A(16) THEN Q=12: 
RETURN 

IF A(21)=E THEN 740 

IF A(21)=A(24) AND A(24)=A(27) THEN Q=21: 
RETURN 

IF A(21)=A(23) AND A(23)=A(25) THEN Q=21: 
RETURN 

IF A(4)=E THEN 770 

IF A(4)=A(5) AND A(5)=A(6) THEN Q=4:RETURN 
IF A(4)=A(13) AND A(13)=A(22) THEN Q=4:RETURN 


IF A(13)=E THEN 790 

IF A(13)=A(14) AND A(14)=A(15) THEN Q=13: 
RETURN 

IF A(22)=E THEN 810 

IF A(22)=A(23) AND A(23)=A(24) THEN Q=22: 
RETURN 

IF A(6)=E THEN 830 

IF A(6)=A(15) AND A(15)=A(24) THEN Q=6:RETURN 
IF A(5)=E THEN 850 

IF A(5)=A(14) AND A(14)=A(23) THEN Q=5: RETURN 
IF A(7)=E THEN 890 

IF A(7)=A(8) AND A(8)=A(9) THEN Q=7:RETURN 

IF A(7)=A(16) AND A(16)=A(25) THEN Q=7:RETURN 
IF A(7)=A(14) AND A(14)=A(21) THEN Q=7;RETURN 
IF A(17)=E THEN 910 

IF A(17)=A(16) AND A(17)=A(18) THEN Q=16: 
RETURN 

IF A(25)=E THEN 930 

IF A(25)=A(26) AND A(26)=A(27) THEN Q=25: 
RETURN 

IF A(8)=E THEN 950 

IF A(8)=A(17) AND A(17)=A(26) THEN Q=8:RETURN 
IF A(9)=E THEN 980 

IF A(9)=A(18) AND A(18)=A(27) THEN Q=9:;RETURN 
IF A(9)=A(14) AND A(14)=A(19) THEN Q=9:RETURN 
RETURN 

REM of akk leo of ako of of of ae ok eo alef ok ae ok ok ok kek kok 


REM ACCEPTEER SPELERZET 
PRINT "UW ZET:'"';:INPUT Y 
IF Y<1 OR Y>27 THEN 1010 
IF A(Y)<>E THEN 1010 
A(Y)=C 

RETURN 


REM keker dek dek 

REM EEN ZET DOEN 

M=1:IF A(1)<>E THEN 1150 

IF A(1)=A(3) AND A(1)<>E THEN M=2:RETURN 
IF A(2)=A(3) AND A(2)<>E THEN RETURN 

IF A(4)=A(7) AND A(4)<>E THEN RETURN 

IF A(5)=A(9) AND A(5)<>E THEN RETURN 

IF A(10)=A(19) AND A(10)<>E THEN RETURN 
IF A(14)=A(27) AND A(14)<>E THEN RETURN 
M=3;5IF A(3)<>E THEN 1210 

IF A(2)=A(1) AND A(2)<>E THEN RETURN 
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1320 
1330 
1340 
1350 


1370 
1380 
1390 


1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
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IF A(6)=A(9) AND A(6)<>E THEN RETURN 

IF A(5)=A(7) AND A(5)<>E THEN RETURN 

IF A(12)=A(21) AND A(12)<>E THEN RETURN 
IF A(14)=A(25) AND A(14)<>E THEN RETURN 
M=4;IF A(4)<>E THEN 1250 

IF A(1)=A(7) AND A(1)<>E THEN RETURN 

IF A(5)=A(6) AND A(5)<>E THEN RETURN 

IF A(13)=A(22) AND A(13)<>E THEN RETURN 
M=5;IF A(5)<>E THEN 1310 

IF A(1)=A(9) AND A(1)<>E THEN RETURN 

IF A(2)=A(8) AND A(2)<>E THEN RETURN 

IF A(3)=A(7) AND A(3)<>E THEN RETURN 

IF A(4)=A(6) AND A(4)<>E THEN RETURN 

IF A(14)=A(23) AND A(14)<>E THEN RETURN 
M=6:IF A(6)<>E THEN 1350 

IF A(4)=A(5) AND A(4)<>E THEN RETURN 

IF A(3)=A(9) AND A(3)<>E THEN RETURN 

IF A(15)=A(24) AND A(15)<>E THEN RETURN 
M=7:IF A(7)<>E THEN 1400 

IF A(1)=A(4) AND A(1)<>E THEN RETURN 

IF A(8)=A(9) AND A(8)<>E THEN RETURN 

IF A(5)=A(3) AND A(5)<>E THEN RETURN 

IF A(16)=A(25) AND A(16)<>E THEN RETURN 
M=8:IF A(8)<>E THEN 1440 

IF A(7)=A(9) AND A(7)<>E THEN RETURN 

IF A(5)=A(2) AND A(5)<>E THEN RETURN 

IF A(17)=A(26) AND A(17)<>E THEN RETURN 
M=9:IF A(9)<>E THEN 1500 

IF A(7)=A(8) AND A(7)<>E THEN RETURN 

IF A(6)=A(3) AND A(6)<>E THEN RETURN 

IF A(1)zA(5) AND A(1)<>E THEN RETURN 

IF A(18)=A(27) AND A(18)<>E THEN RETURN 
IF A(14)=A(19) AND A(14)<>E THEN RETURN 
M=10:IF A(10)<>E THEN 1550 

IF A(11)=A(12) AND A(11)<>E THEN RETURN 
IF A(13)=A(16) AND A(13)<>E THEN RETURN 
IF A(14)=A(18) AND A(14)<>E THEN RETURN 
IF A(1)=A(19) AND A(1)<>E THEN RETURN 
M=11:3IF A(11)<>E THEN 1590 

IF A(10)=A(12) AND A(10)>E THEN RETURN 
IF A(14)=A(17) AND A(14)<>E THEN RETURN 
IF A(2)=A(20) AND A(2)<>E THEN RETURN: 
M=12:IF A(12)<>E THEN 1640 

IF A(10)=A(11) AND A(10)<>E TEEN RETURN 


1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 


IF A(15)=A(18) AND A(15)<>E THEN RETURN 
IF A(14)=A(16) AND A(14)<>E THEN RETURN 
IF A(3)=A(21) AND A(3)<>E THEN RETURN 
M=20:IF A(20)<>E THEN 1680 

IF A(19)=A(21) AND A(19)<>E THEN RETURN 
IF A(23)=A(26) AND A(23)<>E THEN RETURN 
IF A(2)=A(11) AND A(2)<>E THEN RETURN 
M=21:IF A(21)<>E THEN 1740 

IF A(19)=A(20) AND A(19)<>E THEN RETURN 
IF A(24)=A(27) AND A(24)<>E THEN RETURN 
IF A(23)=A(25) AND A(23)<>E THEN RETURN 
IF A(3)=A(12) AND A(3)<>E THEN RETURN 
IF A(14)=A(7) AND A(14)<>E THEN RETURN 
M=16:IF A(16)<>E THEN 1790 

IF A(10)=A(13) AND A(10)<>E THEN RETURN 
IF A(17)=A(18) AND A(17)<>E THEN RETURN 
IF A(14)=A(12) AND A(14)<>E THEN RETURN 
IF A(7)=A(25) AND A(7)<>E THEN RETURN 
M=17sIF A(17)<>E THEN 1830 

IF A(14)=A(11) AND A(14)<>E THEN RETURN 
IF A(16)=A(18) AND A(16)<>E THEN RETURN 
IF A(8)=A(26) AND A(8)<>E THEN RETURN 
M=18:IF A(18)<>E THEN 1880 

IF A(16)=A(17) AND A(16)<>E THEN RETURN 
IF A(15)=A(12) AND A(15)<>E THEN RETURN 
IF A(14)=A(10) AND A(14)<>E THEN RETURN 
IF A(9)=A(27) AND A(9)<>E THEN RETURN 
M=19:IF A(19)<>E THEN 1940 

IF A(20)=A(21)} AND A(20)<>E THEN RETURN 
IF A(22)=A(25) AND A(22)<>E THEN RETURN 
IF A(23)=A(27) AND A(23)<>E THEN RETURN 
IF A(1)=A(10) AND A(1)<>E THEN RETURN 
IF A(14)=A(9) AND A(14)<>E THEN RETURN 


M=13:IF A(13)<>E OR RND(-TIME)>.,2 THEN 2000 


IF A(14)=E AND A(15)=E OR A(16)=E AND A(10)=E 


THEN 2000 

IF A(10)=A(16) AND A(10){>E THEN RETURN 
IF A(2)=A(22) AND A(2)<>E THEN RETURN 
IF A(14)=A(15) AND A(14)<>E THEN RETURN 
IF A(M)=E TEEN RETURN 

M=14:IF A(14)<>E THEN 2100 

IF A(10)=A(18) AND A(10)<>E THEN RETURN 
IF A(12)=A(16) AND A(12)<>E THEN RETURN 
IF A(13)=A(15) AND A(13)<>E THEN RETURN 
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80 


IF A(11)=A(17) AND A(11)<>E THEN RETURN 
IF A(5)=A(23) AND A(5)<>E THEN RETURN 
IF A(1)=A(27) AND A(1)<>E THEN RETURN 
IF A(3)=A(25) AND A(3)<>E THEN RETURN 
IF A(7)=A(21) AND A(7)<>E THEN RETURN 
IF A(9)=A(19) AND A(9)<>E THEN RETURN 
M=15:IF A(15)<>E THEN 2140 

IF A(12)=A(18) AND A(12)<>E THEN RETURN 
IF A(13)=A(14) AND A(13)>E THEN RETURN 
IF A(6)=A(24) AND A(6)<>E THEN RETURN 
M=22;5IF A(22)<>E THEN GOTO 2180 

IF A(19)=A(25) AND A(19)<>E THEN RETURN 
IF A(23)=A(24) AND A(23)<>E THEN RETURN 
IF A(4)=A(13) AND A(4)<>E THEN RETURN 
M=23:IF A(23)<>E THEN 2240 

IF A(22)=A(24) AND A(22)<>E THEN RETURN 
IF A(20)=A(26) AND A(20)<>E THEN RETURN 
IF A(19)=A(27) AND A(19)<>E THEN RETURN 
IF A(15)=A(21) AND A(15)<>E THEN RETURN 
IF A(5)=A(14) AND A(5)<>E THEN RETURN 
M=243IF A(24)<>E THEN 2280 

IF A(21)=zA(27) AND A(21)<>E THEN RETURN 
IF A(22)=A(23) AND A(22)<>E THEN RETURN 
IF A(6)=A(15) AND A(6)<>E THEN RETURN 
M=25:IF A(25)<>E THEN 2330 

IF A(19)=A(22) AND A(19)<>E THEN RETURN 
IF A(26)=A(27) AND A(26)<>E THEN RETURN 
IF A(23)=A(21) AND A(23)<>E THEN RETURN 
IF A(7)=A(16) AND A(7)<>E THEN RETURN 
M=26:IF A(26)<>E THEN 2370 

IF A(23)=A(20) AND A(23)<>E THEN RETURN 
IF A(25)=A(27) AND A(25)<>E THEN RETURN 
IF A(8)=A(17) AND A(8)<>E THEN RETURN 
M=27:IF A(27)<>E THEN 2430 

IF A(25)=A(26) AND A(25)<>E THEN RETURN 
IF A(24)=A(21) AND A(24)<>E THEN RETURN 
IF A(19)=A(23) AND A(19)<>E TEEN RETURN 
IF A(9)=A(18) AND A(9)<>E THEN RETURN 
IF A(1)=A(14) AND A(1)<>E THEN RETURN 
M=2:IF A(2)<>E THEN 2490 


IF A(1)=E AND A(3)=E OR A(5)=E AND A(8)=E 


THEN 2490 
IF A(1)=A(3) AND A(1)<>E THEN RETURN 
IF A(11)=A(20) AND A(11)<>E THEN RETURN 


2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 


2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 


IF A(5)=A(8) AND A(5)<>E THEN RETURN 
REM *teedndkkk 


IF RND(-TIME)>.7 THEN 2510 
IF A(14)=E THEN M=14:RETURN 
IF A(5)=E THEN M=5:RETURN 
IF A(23)=E THEN M=23:RETURN 
M=0 

Z=0 

Z=Z+1 

M=INT (RND(-TIME)*12) +1 

IF A(M)=E THEN RETURN 

IF Z<100 THEN 2550 

20 

M=0 

Z=Z+1 

M=INT (RND(-TIME)*27) +1 

IF A(M)=E THEN RETURN 

IF 2<500 THEN 2610 
PRINT:PRINT"GELIJK SPEL 111" 
FOR TD=1 TO 2000:NEXT TD 
M=99 

RETURN 

GOTO 2750 

REM %kk kk kok ok ok ok ok ok ok ok oke ok of ok ok of ok ok of ok of oke oke 
REM EINDE VAN HET SPEL 
PRINT 

IF A(Q)=B THEN PRINT'"IK HEB GEWONNEN! !'':MSe= 
MS+1 

IF A(Q)=C THEN PRINT'U WINT „….«'"sHS=HS+1 
PRINT 

IF Q=0 THEN GOTO 100 
PRINT''MIJN SCORE IS:';MS 
PRINT'"UW SCORE IS: '";HS 
FOR Z=1 TO 27 

A(Z)=E 

NEXT Z 

FOR TD=1 TO 2000:NEXT TD 
COLOR 1,13 

GOTO 40 

REM %ekokekok kok ok ook af ok oke ok oke ok aje ok of ok ok oke ok ale 
REM INITIALISATIE 

CLS 

SCREEN 0 

KEY OFF 
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2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
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DIM A(27),D(12) 


B=ASC("X!"') :REM STUK VAN DE COMPUTER 
C=ASC("O!"'):REM STUK VAN DE SPELER 
E=ASC("'."'):REM ONGEBRUIKTE PLAATS 
M=0:Q=0 

HS=0:MS=0 

FOR T=1 TO 12 

READ Q 

D(T)=Q 

NEXT T 

GOTO 2790 

DATA 1,3,7,9,19,21,25,27,10,12,16,18 
REM BEGINPLAATJE *ttkks 


CLS:KEY OFF 
COLOR 12,1 
FOR Y=1 TO 22 


LOCATE 8,Y-1:PRINT" 

LOCATE 8,Y:PRINT"BOTER KAAS & EIEREN" 
FOR TD=1 TO 100:NEXT TD 

NEXT Y 

CLS 

Xx$=" BOTER KAAS & EIEREN" 
GX=35 

FOR XG=1 TO 35 

G2$=MID$ (XX$,GX,XG) 

LOCATE 0,11:PRINT G2$; 

FOR Z=1 TO 75:NEXT Z 

GX=GX-1 

NEXT XG 

FOR Z=1 TO 500:NEXT Z 

RETURN 

PLAY"OSCEG" 

RETURN 

PLAY"OS5GEC" 

RETURN 


ONTCIJFER X-CODE 


Reactie en inzicht zijn de vereisten voor het spel ONTCIJFER X-CODE. De com- 
puter kiest uit een reeks van 237 woorden willekeurig een woord, klutst het door 
elkaar en laat het van rechts naar links over het scherm lopen. Aan u de taak om 
het bedoelde woord in te typen voordat het door elkaar geklutste woord de 
muur bereikt heeft. 


U kunt het spel op tien verschillende niveaus spelen. Niveau 1 is het gemakke- 
lijkste niveau. Het niveauverschil is gelegen in de afstand van de muur tot de 
rechter beeldschermrand. Hoe verder de muur naar rechts staat, des te minder 
tijd heeft u om de juiste oplossing in te typen. 


Nadat in regel 80 de verschillende woorden zijn ingelezen (door middel van de 
READ-instructie), wordt in regel 90 de subroutine aangeroepen die de in het 
spel gebruikte sprites definieert. 


Twee van de sprites zijn happer-monstertjes, die bij de titelpagina worden ge- 
bruikt om detitel opte eten. De derde sprite is een explosie, die plaatsvindt wan- 
neer het woord tegen de muur botst. 
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Het aantal beurten dat u heeft gespeeld, wordt bijgehouden in regel 110 (varia- 
bele BE). De variabele OK in regel 990 houdt het aantal keren bij dat u het juiste 
woord heeft geraden. Deze twee variabelen worden in regel 1090 en 1110 ook 
benut om de verhouding beurten — goede oplossingen weer te geven. 


Hethoofdprogramma van ONTCIJFER X-CODE bevindt zich in de regels 220 
280. Daar wordt stapsgewijs het geklutste woord van rechts naar links bewo- 
gen. Met behulp van de instructie ON INTERVAL GOSUB springt het pro- 
gramma elke halve seconde naar de intervalroutine in regel 610-700, waarin 
de computer het toetsenbord uitleest, de getypte letters PRINT en de verstreken 
tijd rechtsboven in beeld PRINT. 


De regels 1300-1630 zijn DATA-regels waarin de verschillende woorden en de 
DATA voor de sprites staan. 


Wanneer u de opbouw van het programma goed doorhebt, zal het een kleine 
moeite zijn om andere, eventueel ook langere woorden in de DATA-regels te 
zetten waardoor u het spel naar eigen inzicht kunt aanpassen. 


10 REM ONTCIJFER X-CODE *kieksekkkt 
20 CLS:KEY OFF 

30 COLOR 15,4,4 

40 SCREEN 1,2 

50 O=RND(-TIME) 

60 DIM S$(238) 

70 ON INTERVAL=30 GOSUB 610 

80 FOR T=0 TO 236:READ S$(T)::NEXT T 
90 GOSUB 440 

100 GOSUB 1640 

110 BE=BE+1 

120 GOSUB 310 

130 GOSUB 710 

140 CLS 

150 LOCATE Z,5:PRINT CHR$(206) 

160 FOR Y=6 TO 16:LOCATE Z,Y:PRINT" " 
170 REM GRAPH SHIFT-| 

180 LOCATE 2,17:PRINT CHR$(205) 

190 NEXT Y 

200 X=23:Y=10 

210 INTERVAL ON 

220 REM HOOFDPROGRAMMA “tetek 
230 LOCATE X+1,Y:PRINT SPC(7) 
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240 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


400 


410 
420 


430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 


LOCATE X,Y:PRINT G$(G1);G$(G2);G$(G3) ;G$(G4) ; 
G$(G5) 

FOR TD=1 TO 500:NEXT TD 

X=X-1 

IF X<2+1 THEN GOTO 1160 

GOTO 230 

FOR TD=1 TO 1000:NEXT TD 

PRINT G$(G1);G$(G2);GS(G3) ;GE(GA) ;GE(G5) 
REM KLUTS HET WOORD *ttdekdek 
G1=0:G2=0:G3=0:G4=0:G5=0 

Pg="t Bg" 

T=INT(RND(1)*237)+0:F$=S$(T) 

LE=LEN(F$) 

FOR G=1 TO LE:G$(G)=MID$(F$,G,1):NEXT G 
G1=INT(RND(1) *LE) +1 

G2=INT(RND(1)*LE)+1:IF G2=G1 THEN GOTO 380 
G3=INT(RND(1)*LE) +1: IF G3=G1 OR G3=G2 THEN 
GOTO 390 

GA=INT(RND(1)*LE)+1:IF G4=G1 OR G4=G2 OR G4=G3 
THEN GOTO 400 

IF LE<5 THEN G5=0 

FOR T=1 TO LE:IF G1<>T AND G2<>T AND G3<>T AND 
GAT THEN G5=T 

NEXT T:RETURN 

REM SPRITE-DEFINIERING **4tstkk 

FOR I=1 TO 32 

READ B% 

S0$=50$+CHR$ (B%) 

NEXT I 

SPRITE$(0)=S0$ 

FOR I=1 TO 32 

READ B% 

S1$=S1$+CHR$(B%) 

NEXT I 

SPRITES$(1)=S1$ 

FOR I=1 TO 32 

READ B% 

S2$=52$+CHR$(B%) 

NEXT I 

SPRITE$(2)=52$ 

RETURN 

REM INTERVALROUTINE tst 
A$=INKEY$ 
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630 B$=B$+A$ 

640 IF A$<>''' THEN BEEP 

650 LOCATE 13,0:PRINT B$ 

660 IF B$=F$ THEN GOTO 980 

670 IF LEN(B$)=LEN(F$) THEN GOTO 1230 

680 LOCATE 20,0:PRINT"TIJD:";INT(TIME/60-TIME/ 
3600) 

690 LOCATE X,Y 

700 RETURN 

710 REM WELK NIVEAU oke ok ok ok ok ak ok ak ok ok of of ok ok oe 

720 CLS 

730 LOCATE 0,11 

740 PRINT"WELK NIVEAU WILT U? 1-10"; 

750 INPUT N 


760 IF N<1 OR N>10 THEN GOTO 720 
710 IF N=1 THEN Z=5 
780 IF N=2 THEN Z=6 
790 IF N=3 THEN Z=7 
800 IF N=4 THEN Z=8 
810 IF N=5 THEN Z=9 
820 IF N=6 THEN Z=10 
830 IF N=7 THEN Z=11 
840 IF N=8 THEN Z=12 
850 IF N=9 THEN Z=13 
860 IF N=10 THEN Z=14 
870 TIME=0 

880 RETURN 


890 REM NOG EEN SPEL “terstond 
900 SCREEN 1,2 

910 CLS 

920 INTERVAL OFF 

930 LOCATE 6,10:PRINT"NOG EEN SPEL (J/N)' 
940 Z$=INKEYS 

950 IF Z$="J" THEN GOTO 110 

960 IF Z$="N" THEN CLS:END 

970 GOTO 940 

980 REM GOED GERADEN **tttttrtde 
990 OK=OK+1 

1000 LOCATE 0,23 

1010 FOR A=1 TO 23:PRINT;NEXT A 

1020 LOCATE 3,12 

1030 PRINT'U HEBT HET GOED GERADEN" 
1040 LOCATE 3,13 

1050 PRINT"HET WAS INDERDAAD '';B$ 
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1060 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 


LOCATE 3,14:PRINT"U HEBT HET IN";INT(TIME/ 
60-TIME/3600)-1; "SEC." 

LOCATE 3,15:PRINT"GERADEN'" 

LOCATE 3,16 

PRINT"DIT WAS DE";OK;"E KEER" 

LOCATE 3,17 

PRINT''VAN DE";BE;"BEURTEN DAT U HET" 
LOCATE 3,18 

PRINT''GOED GERADEN HEEFT" 

FOR TD=1 TO 3000:NEXT TD 

GOTO 890 ; 

REM TIJDSOVERSCHRIJDING **emtrx 

PUT SPRITE 0,((Z+1)*8,75),2,0 

LOCATE 3,19:PRINT"U HEBT DE TIJDSLEMIET" 
LOCATE 3,20:PRINT"OVERSCHREDEN, HET WOORD! 
LOCATE 3,21:PRINT"WAS: ";F$ 

FOR TD=1 TO 2000:NEXT TD 

GOTO 890 

REM FOUT 

LOCATE 3,19 

PRINT"U HEBT ';B$;'' GERADEN, DAT" 
LOCATE 3,20 

PRINT"WAS FOUT, HET WAS '";F$ 

FOR TD=1 TO 2000:NEXT TD 

GOTO 890 

REM WOORDEN *%kkkk kkk ok ak ok ok oke ok ok ok ak oke 

DATA AMPER,DACHT,AARD,DRAAD,AMBER, AREND, 
ADEL ,AARDE,ANGST ‚APEN, AJUIN,ABDIJ 

DATA ABEEL,DADEL,AKTE,ARKEN, ACTIE ,BOORD, 
BOOM , BORST , BLOOT , BERG ‚ BREUK , BOREN 

DATA BEKER,BAKER,BORD, BALEN, BENEN , BODEM, 
BROM, BARST ,BREEK, BERM, BEREN , BUREN 

DATA DORST,DRANK,DUIM,DOVEN ,DUREN , DRINK, 
DURF „DRUIF „DENKT , DREK, DROOM, DUURT 

DATA EERST,ERGER,CENT,ENGER, ERVEN, ERKER, 
EGEL,ENKEL,EINDE,ELKE,EVERS,EIGEN 

DATA FRAAI,FRUIT,FOEI,FRANK,FLAUW,FLUIM, 
FOUT,FORSE,FLUIT,FORT,FRONS,FRIES 

DATA GRAAG,GERST ,GORT , GROUW ,GROEI,GUNST, 
GEEL , GAREN, GEEFT ,GIER, GEURT , GELDT 

DATA HAALT ,HOORT,HERT , HANGT, HAAKT , HALEN, 
HONK , HALVE, HEKEL , HIER, HAREM, HATEN 

DATA IMKER,IMMER, INKT, IJLDE, IEDER, INDIE, 
INDO, IJVER, IJDEL , INCA, IJZER, IJZIG 
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1400 DATA KASSA,KARIG,KOLK,KOERD, KOORD, KEURT, 
KERK, KEVER, KERST, KURK, KORTE, KORST 

1410 DATA JUICH,JOKTE,JONK, JOKER, JOLIG,JOUWE, 
JADE,JARIG,JODEL, JURK, JAKJE, JUIST 

1420 DATA LEVER,LUIDE,LOOF ,LOSTE,LURKT, LIEVE, 
LINK, LEKKE, LUCHT, LORD, LACHT, LOENS 

1430 DATA MAART,MACHT,MEID,MAGER,MINDE,MAAND, 
MELK ,MOTEN ‚MEREN , MOND ‚MEEST ‚MOEST 

1440 DATA NEGER,NAGEL,NAAR,NOORD,NOEST , NEDER , 
NOCH, NOGAL , NAAKT ,NODE , NADER , NETEL 

1450 DATA ORDER,OPPER,OORD,OLIJK,OUDER,OUWEL, 
OVER,ONDER,OTTER,ORDE , OKSEL , ORGEL 

1460 DATA PAARD,POVER,PARK,PORDE, POKER, PRIMA, 
PLAN, PLENS,PUIST,PLEK,PEKEL , PLUUT 

1470 DATA REEDS,RECHT,RAGE,RATEL,ROVER,REGEL, 
RAND ,RAKEL , ROUTE , ROOK, RAKET , RUSTE 

1480 DATA SLAAP,SLOEP,SLOP,SLEUF,SCHAP, SCHEP, 
STIK,STERK,SARDE, SMET ,SONDE, SORES 

1490 DATA TEGEL,TERGT,TELG, TAART, TUNER, TOREN, 
TAND,TEDER, TEPEL, TALK, TOEFT, TAFEL 

1500 DATA UIVER,UITEN,UIEN,UNIEK,UILEN,URKER, 
VIER,VERSE, VOREN 

1510 REM SPRITE-DATA “tok 

1520 DATA 0,97,97,1,1,3,7,127 

1530 DATA 127,7,3,1,1,97,97,0 

1540 DATA 0,134,134,128,128,192,224,254 

1550 DATA 254,224,192,128,128,134,134,0 

1560 DATA 31,63,127,127,121,127,127,147 

1570 DATA 127,127,127,127,127,127,63,31 

1580 DATA 248,252,158,159,254,248,224,128 

1590 DATA 128,224,248,254,159,158,252,248 

1600 DATA 31,63,126,126,127,127,127,127 

1610 DATA 127,127,127,127,126,126,63,31 

1620 DATA 192,224,144,152,252,254,255,144 

1630 DATA 144,255,254,252,152,144,224,192 

1640 REM TITELPAGINA **tsdotdk 

1650 CLS 

1660 COLOR 15,1,1 

1670 R=0 

1680 LOCATE 6,11 

1690 PRINT'"NOIJCTRFE EOC-XD' 

1700 FOR TD=1 TO 1000:NEXT TD 

1710 LOCATE 6,11 

1720 PRINT"ONIJCTFRE E-COXD'' 
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1730 FOR TD=1 TO 1000:NEXT TD 

1740 LOCATE 6,11 

1750 PRINT"ONTIJCFRE X-COED" 

1760 FOR TD=1 TO 1000:NEXT TD 

1770 LOCATE 6,11 

1780 PRINT"ONTCIJFER X-CODE" 

1790 FOR Q=0 TO 255 STEP 2:IF F=1 THEN PUT 
SPRITE 1,(Q,82),9,2:F=0 ELSE PUT SPRITE 2, 
(Q,862),9,1sF=l 

1800 IF Q/8=INT(Q/8) THEN LOCATE R,‚11:PRINT 
CHR$ (32) :R=R+1 

1810 FOR TD=1 TO 50:NEXT TD 

1820 NEXT Q 

1830 PUT SPRITE 1,(100,100),0,1 

1840 PUT SPRITE 2,(100,100),0,1 

1850 RETURN 


OTHELLO 


U kunt nu de computer uitdagen om een spelletje OTHELLO te spelen. De ge- 
computeriseerde versie van dit populaire bordspel laat u vele uren zwaar her- 
senwerk verrichten in uw pogingen om de machtige MSXte verslaan. U zult zien 
dat decomputer ditspelerg goed speelten dat heterg moeilijkis omte winnen. 


OTHELLO wordt gespeeld op een bord van 8 bij 8. De spelers plaatsen om de 
beurt een stuk op het bord. De stukken worden zo op het bord gezet dat één of 
meer stukken van uwtegenspeler gevangen zitten tussen twee van uw stukken. 
De gevangen stukken worden dan van u. Aan het eind van het spel is degene 
die de meeste stukken heeft winnaar. 


leder speler begint met twee stukken op het bord. Uw speelstukken zijn de 
dichte rondjes en de stukken van de computer zijn de open rondjes (karakters 
248 en 249). 


Aan het begin van het spel wordt u gevraagd om de eerste zet te doen. Nadat 
u daarop heeft gereageerd, wordt het scherm gewist en het bord afgebeeld. 


Rechts van het bord bevindt zich een kader, waarin wordt aangegeven dat er 
over een zet wordt nagedacht. 


90 


De computer geeft aan wanneer het uw beurt is. Voer eerst het verticale num- 
mer van het veld in en daarna het horizontale nummer, zodat de computer weet 
op welk veld u het stuk wilt zetten. Als u geen zet kunt doen, moet u een O invoe- 
ren. 


Het bord wordt gePRINT door de regels 580-780. Deze routine brengt het vier- 
kante net op het scherm, gaat na op welke velden stukken staan en van welke 
speler de stukken zijn. Ook wordt nagegaan of beide spelers nog meedoen. 
Naast het speelbord wordt aangegeven hoeveel stukken iedere speler heeft en 
wie aan de beurt is. 


10 REM OTHELLO 
20 GOSUB 1310 
30 DIM A(10,10) 
40 CL$=CHR$(12):P$="" bit 
50 REM P$->24 SPATIES 
60 GOTO 1110 
70 REM GELUIDSROUTINE 
80 PLAY "O4CEG" 
90 RETURN 
100 REM INVOER 
110 LOCATE 18,21 :RETURN 
120 ON FLAG GOTO 210,370,380,480 
130 REM DENKEN 
140 PLAY 'T12008C' 
150 RETURN 
160 PRINT CL$ 
170 GOSUB 1000:GOSUB 570 
180 IF A$="1"' THEN GOTO 420 
190 LOCATE 23,20:PRINT'MIJN ZET “":GOSUB 1220 
200 FLAG=U1:GOTO 120 
210 S=0O:T=X:H=0:FOR A=2 TO 9:FOR B=2 TO 9: 
IF A(A,B)<>46 THEN GOTO 370 
220 Q=0:FOR C=-1 TO 1:FOR D=-1 TO 1:K=0:F=A:G=B 
230 IF A(F+C,G+D)<>S THEN 250 
240 K=K+Ul:F=F+C:G=G+D: GOTO 230 
250 IF A(F+C,G+D)<>T THEN 270 
260 Q=Q+K 
270 NEXT D:NEXT C 
280 IF A=A2 OR A=9 THEN Q=Q*A2 
290 IF B=A2 OR B=9 THEN Q=Q*A2 
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92 


IF A=3 OR A=8 THEN Q=Q/A2 

IF B=3 OR B=8 THEN Q=Q/A2 

IF (A=A2 OR A=9) AND (B=3 OR B=8) THEN Q=Q/A2 
IF (A=3 OR A=8) AND (Z=2 OR 4=9) THEN Q=Q/A2 
IF Q<H OR Q=0 OR (INT(RND(1)*U1)+1>P3 AND 
Q=H) THEN GOTO 370 

H=Q:M=A:N=B 


FLAG=2:GOTO 120 

FLAG=3:GOTO 120 

NEXT B:GOSUB 130:NEXT A:IF H=0 AND R=0 THEN 
860 

IF H=0 THEN GOTO 410 

GOSUB 790 

GOSUB 570:GOSUB 1260 

S=X:T=0 

LOCATE 23,20:PRINT'"UW BEURT"; 
cg=tn 

INPUT B$ 

GOSUB 130 


FLAG=4:GOTO 120 

IF B$="" THEN 450 

IF B$="-" THEN C$="";GOTO 450 

IF B$="O" THEN R=0:GOTO 560 

IF ASC(B$)<48 OR ASC(B$)>57 THEN GOTO 450 


GOSUB 100:C$=C$+B$:IF LEN(C$)=2 THEN R=VAL( 
C$):GOTO 540 

GOTO 450 
M=INT(R/10) +1 :N=R-10*INT(R/10) +1 

GOSUB 790 

GOSUB 570:GOTO 190 

C=0:H=0 

LOCATE 16,0:PRINT'"OTHELLO' : PRINT: PRINT 
PRINT'' 12456 es 

PRINT 

LOCATE 0,4:FOR B=2 TO 9:PRINT B-1; 


FOR D=2 TO 9:IF A(B,D)=X THEN C=C+1:PRINT 
CHR$(32);CHR$(248);:GOTO 640 

IF A(B‚D)=O THEN PRINT CHR$(32);CHR$(249) ;: 
H=H+1 

IF A(B‚D)<>X AND A(B,D)<>O THEN PRINT " ."; 
NEXT D 

PRINT B-1:PRINT:NEXT B 

PRINT '' 12345678" 

PRINT 


690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


IF C+H=64 THEN 860 


IF C=0 THEN 8 


60 


IF H=0 THEN 860 


LOCATE 23,13:PRINT"IK HEB: “CHR$(248); 
WEC: PRINT 

W;C: PRINT 

HEBT: ';CHR$(249) ; 
“;H: PRINT 

“;H: PRINT 


IF C>10 THEN 
IF C<10 THEN 
LOCATE 23,15: 
IF H>10 THEN 
IF H<10 THEN 
PRINT : RETURN 


FOR C=-1 TO 1:FOR D=-U1 TO Ui:F=M:G=N 


PRINT " 
PRINT * 
PRINT''U 
PRINT *" 
PRINT " 


IF A(F+C,G+D)<>S THEN 820 
F=F+C:G=G+D:GOTO 800 
IF A(F+C,G+D)<>T THEN 850 


A(F,G)=T:IF M=F AND N=G THEN 850 


F=F-C:G=G-D:GOTO 830 
NEXT D:NEXT C:RETURN 


REM WIE WINT 


ER? 


FOR TD=1 TO 1000:NEXT TD 


LOCATE 25,23 


IF C>H THEN PRINT"IK WIN ";C;" ";H 
IF C<H THEN PRINT"U WINT";H;" “;C 


IF H=C THEN PRINT"GELIJK!" 
FOR TD=1 TO 2000:NEXT TD 


PRINT CL$ 
LOCATE 10,10 
PRINT: PRINT" 


A$=INKEY$ 


NOG EEN SPEL (J/N)2" 


IF A$="J" THEN RUN 


IF A$="N" THEN PRINT CL$:END 


GOTO 960 
REM 


LOCATE 25,2:PRINT"DENK!" 


LOCATE 25,3: 


REM GRAPH-R, GRAPH--(3X), GRAPH-Y 


FOR I=0 TO 3 


LOCATE 25,4+I:PRINT" 


PRINT" 


REM GRAPH SHIFT-|, SPATIE(3X), GRAPH SHIFT-| 


NEXT I 


LOCATE 25,7:PRINT' 


REM GRAPH-V, GRAPH--(3X), GRAPH-N 


RETURN 
PRINT CL$ 
X=248:0=249 


m 
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1130 
1140 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1810 
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Ul=1;5P2=,35A2=2 

FOR B=1 TO 10:FOR C=1 TO 10:IF B>U1 AND C<>U1 
AND B<> 10 AND C<>10 THEN A(B,C)=ASC(".") 
NEXT C:NEXT B 
A(5,5)=XstA(6,6)=X2A(5,6)=0:A(6,5)=0:P=0 


PRINT CL$:LOCATE 4,10:PRINT"WILT U BEGINNEN? "'; 
PRINT'"JA=1 NEE=2" 

A$=INKEY$ 

IF A$="1"" OR A$="2"" THEN GOTO 160 

GOTO 1190 

LOCATE 26,4:PRINT CHR$(205);CHR$ (32) ; 


CHRS (205) 

VPOKE 227,254 

LOCATE 26,6:PRINT",..'" 
RETURN 

LOCATE 26,4:PRINT!' _" 
LOCATE 26,5:PRINT" * 
LOCATE 26,6:PRINT" _* 
LOCATE 2,18 

RETURN 

REM TITELPAGINA 

CLS 

WIDTH 40 

KEY OFF 

Y=113X=39sX1=12 

LOCATE X,Y 

FOR F=1 TO 17 

READ B 

FOR Z=39 TO X1 STEP -1 
LOCATE Z,Y:PRINT CHR$(B) ; 
FOR TD=1 TO 25:NEXT TD 
LOCATE Z,Y:PRINT CHR$(32); 
NEXT Z 

LOCATE Z,Y:PRINT CHR$(B) 
IF X1<29 THEN Xl=X1+1 
NEXT F 

FOR TD=1 TO 2000:NEXT TD 
RETURN 

DATA 79,84,72,69,76,76,79 
DATA 32,79,80,32,85,87 
DATA 32,77,83,88 


SCHAAKBORD NIM 


Dit programma biedteen interessante variant op het NIM-spel. Men begint met 
een willekeurig aantal speelstukken (gewoonlijk lucifers) en twee spelers halen 
om de beurt een aantal stukken weg. De speler die het laatste stuk moet wegha- 
len, heeft verloren. 


De computer neemt een willekeurig aantal stukken, zet die op een schaakbord 
en bepaalt hoeveel stukken er per beurt mogen worden weggehaald. Datwordt 
gedaan in regel 80. 


De routine in regel 500-570 plaatst het aantal speelstukken in de A-array. Ver- 
volgens drukken de regels 110-150 de benodigde informatie af. 


Het bord en de speelstukken worden afgebeeld door middel van de routine in 
regel 170-260. U kunt de vorm van de speelstukken veranderen door de waarde 
in regel 420 te veranderen. 
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9%6 


REM SCHAAKBORD NIM *%ktsttded 
GOSUB 650 
CLS 
CLEAR 

S=05C=0 
Q=RND(-TIME) 

Z=INT(11*RND(1)) +21 
F=INT(3*RND(1)) +3 
DIM A(32) 

GOTO 500 

IF S=0 THEN PRINT TAB(7)"STUKKEN OP HET 
BORD: "'; 2 

PRINT 

IF S=0 THEN PRINT TAB(4)"HET MAXIMUM AANTAL 
DAT U KUNT'': PRINT 

IF S=0 THEN PRINT TAB(11)"NEMEN IS:';P 


IF C>0 AND S=0 THEN LOCATE 7,16:PRINT"U NEEMT 
ER";C;"EN IK NEEM ER';D 

LOCATE 0,6 

FOR A=0 TO 3 

PRINT 


FOR B=0 TO 3 
PRINT TAB(15)CHR$(A(29+A-B*8));CHR$ (32) ; 
NEXT B 

PRINT 

FOR B=0 TO 3 

PRINT TAB(15)CHR$(A(25+A-B*8));CHR$ (32); 
NEXT B 

NEXT A 

IF S=1 THEN LOCATE 16,16:PRINT"U WINT":GOTO 580 
IF S=2 THEN LOCATE 16,16:PRINT"IK WIN'":GOTO 580 
PRINT 

LOCATE 7,19 

PRINT'HOEVEEL WILT U ER NEMEN"; 

INPUT C 

IF C<1 THEN GOTO 320 

IF C>F THEN GOTO 320 

IF C>Z2 THEN GOTO 320 

Z=Z-C 

IF Z>0 THEN GOTO 400 

S=2 

IF S=2 THEN GOTO 500 

FOR TD=1 TO 100:NEXT TD 
D=Z-1-INT((Z-1)/(F4+1))*(F+1) 


420 
430 
440 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


IF D=0 AND NOT Z=1 THEN D=INT(F*RND(1))+1 

IF NOT D<Z THEN 420 

IF Z<F+2 AND INT(S*RND(1))+1=5 THEN D=D+INT( 
2*RND(1)) +1 -INT(2*RND(1)) +1 

IF D>F THEN GOTO 400 

IF D>Z THEN GOTO 400 

IF D<0 THEN D=1 

Z=2-D 

IF Z=0 THEN S=1 

FOR A=1 TO Z 


A(A)=249 

NEXT A 

FOR A=Z+1 TO 32 

A(A)=248 

NEXT A 

CLS 

GOTO 110 

FOR TD=1 TO 2000:NEXT TD 
CLS 


LOCATE 8,10:PRINT"NOG EEN SPEL (J/N)?2" 
A$=INKEY$ 

IF A$="J" THEN GOTO 30 

IF A$="N" THEN END 

GOTO 610 

REM TITEL 

KEY OFF 

CLS 

SCREEN 0 

WIDTH40 

COLOR 15 

FLAG=0 

P=RND(-TIME) 

FOR Q=1 TO 20 

X=INT(RND(1 )*30) 

Y=INT(RND(1)*20) +1 

LOCATE X,Y 

IF FLAG=1 THEN PRINT"NIM'":FLAG=0:GOTO 790 
IF FLAG=0 THEN PRINT"SCHAAKBORD'':FLAG=1 
FOR TD=1 TO 100:NEXT TD 

NEXT OQ 

FOR TD=1 TO 2000:NEXT TD 

RETURN 
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HERSENBREKER 


Als laatste spel in dit boek een knaller: een computerversie van het spel Master- 
mind. Ditmaal niet met kleuren maar met verschillende symbolen. 


Decomputer kiest een combinatie uit zesverschillendesymbolen, die onderaan 
het beeldscherm staan aangegeven. U krijgttien beurten omde juiste oplossing 
te bedenken. Daarvoor hebt u een flinke dosis inzicht in de mogelijkheden nodig 
enmoetu de aanwijzingen die de computer geeftop de juiste manier benutten. 


Het programma roept in regel 20 de subroutine aan waarin het gewenste 
SCREEN en de juiste kleurworden ingesteld en schakelt de balkmet functietoet- 
sen uit (KEY OFF). Daarna worden de verschillende karakters die in het spel wor- 
den gebruikt in regel 1700-1770 opnieuw gedefinieerd. Na RETURN wordt in 
regel 40-170 de titelpagina verzorgd. 


Het hoofdprogramma van het spel start in regel 180. De PRINT-regels 250-300 
PRINTen de verschillende karakters waaruit u een keuze kunt maken onder in 
beeld. De regels 310-380 dienen om een willekeurige reeks karakters in het ge- 
heugen van de computer op te slaan. In deze regels wordt er ook voor gezorgd 
dat eenzelfde karakter niet meerdere keren door de computer kan worden geko- 
zen. 
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Regel 420 vraagt om uwinvoer van een karakterreeks. Daarna wordtin de regels 
490-600 gekeken of de door u gekozen karakters overeenkomen met de karak- 
ters in hetgeheugen vande computeren zo ja, ofze ookopde juiste plaats staan. 
De variabelen B en W houden bij hoeveel karakters juist zijn en hoeveel er op 
de juiste plaats staan. Aan de hand van deze beide variabelen wordt in de regels 
9201040 een rondje gePRINT wanneer het karakter juist is én op de juiste plaats 
staat. Een inverse rondje geeft aan wanneer het karakter juist is, maar niet op 
de juiste plaats staat. 


De variabele PO houdt bij in hoeveel beurten u de juiste combinatie raadt. Af- 
hankelijk van de waarde van PO geeft de computer, wanneer u de juiste oplos- 
sing raadt, in de regels 1550-1580 het bijbehorende commentaar. 


10 REM HERSENBREKER 

20 GOSUB 1630 

30 CLS 

40 REM TITELPAGINA 

50 FOR X=1 TO 12 

60 READ B 

70 VPOKE 6144+201+X,B 

80 FOR TD=1 TO 175:NEXT TD 

90 NEXT X 

100 FOR TD=1 TO 450:NEXT TD 

110 FOR X=1 TO 14 

120 READ B 

130 VPOKE 6144+712+X,B 

140 FOR TD=1 TO 10:NEXT TD 

150 NEXT X 

160 A$=INKEY$ 

170 IF A$="" THEN 160 

180 REM HOOFDPROGRAMMA 

190 CLS 

200 LOCATE 4,10 

210 PRINT"KIES NU VIER FIGUREN!" 

220 FOR TD=1 TO 500:NEXT TD 

230 CLS 

240 LOCATE 2,22 

250 PRINT"1=";CHR$(100);CHR$(32) 
;CHR$ (101) ;CHR$(32) 

;CHR$ (102) ;CHR$(32) 

;CHR$ (103) ;CHR$(32) 

290 PRINT'5=";CHR$(104) ;CHR$ (32) ; 


7 
Hd 
7 
Hd 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
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PRINT'"'6="";CHR$ (105) 

A$="123456" 

A1S=MID$(A$,INT(RND(1)*6)+1,1) zA1=VAL(A1S) 
A2$=MID$(A$,INT(RND(1)*6)+1,1) :A2=VAL(A2$) 
IF A2=A1l THEN 330 
A3$=MID$(A$,/INT(RND(1)*6)+1,1):A3=VAL(A3$) 
IF A3=A1 OR A3=A2 THEN 350 
A4S$=MID$(A$,INT(RND(1)*6)+1,1)sA4=VAL(A45) 
IF A4A=A1 OR A4=A2 OR A4=A3 THEN 370 
LOCATE 0,19 

X$="":PRINT"KIES DE JUISTE FIGUREN ler 
LOCATE 22,19 

INPUT X$ 

IF LEN(X$)<>4 THEN GOTO 1350 

FOR E=1 TO 4:X1$=MID$(X$,E,1) :V=VAL(X1$) 
IF V<1 OR V>6 THEN GOTO 1350 

NEXT E 

PO=PO+1 :B=03W=0 

AA$=A1$+A2$+A3$+A4S 

FOR J=1 TO 4 

X1$=MIDS(X$,J,1) :G(J)=VAL(X1S) 
X2$=MID$(AA$,J,1) :C(J)=VAL(X2$) 

IF G(J)=C(J) THEN B=B+1:G(J)=0:C(J)=0 
X1$=""EX2$=""INEXT J 

FOR J=1 TO 4:IF C(J)=0 THEN 600 

H=0:FOR K=1 TO 4 

IF C(J)=0 THEN 590 

IF C(J)<>G(K) THEN 590 

H=l:G(K)=0:C(J)=0 

NEXT K:W=W+H 


NEXT J 

ON PO GOTO 620,630,640,650,660,670,680,690, 
700,710 

LOCATE 6,1:PRINT"1 '';:GOTO 720 
LOCATE 6,2:PRINT"2 '';:GOTO 720 
LOCATE 6,3:PRINT"3 '';:GOTO 720 
LOCATE 6,4:PRINT"4 ";:GOTO 720 
LOCATE 6,5:PRINT"5 ";:GOTO 720 
LOCATE 6,6:PRINT"6 '";:GOTO 720 
LOCATE 6,7:PRINT"7 '";:GOTO 720 
LOCATE 6,8:PRINT"8 '";:GOTO 720 
LOCATE 6,9:PRINT"9 ";:GOTO 720 
LOCATE 6,10:PRINT"10 ''; 
X18=MID$(X$,1,1):X1=VAL(X1$) 


730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 


1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


X28=MID$(X$,2,1) :X2=VAL(X2$) 
X3$=MID$(X$,3,1) :X3=VAL(X3$) 
XA$=MIDS$(X$,4,1) 2 X4=VAL(X45) 

P=0:T=0 

P=P4+1:ON X1 GOTO 810,820,830,840,850,860 
P=P+1:ON X2 GOTO 810,820,830,840,850,860 
P=P+1:ON X3 GOTO 810,820,830,840,850,860 
P=P+1:ON X4 GOTO 810,820,830,840,850,860 


PRINT CHR$(100);'' ";:GOTO 870 
PRINT CHR$(101);"' ";:GOTO 870 
PRINT CHR$(102);" "5 :GOTO 870 
PRINT CER$ (103) ;" ";:GOTO 870 
PRINT CER$(104);" Hon 870 


PRINT CHR$(105);" u 

FOR TD=1 TO 50:NEXT TD 
ON P GOTO 780,790,800 

ON T GOTO 1100,1110,1120,1130 

PRINT CHR$(30);:IF B=0 THEN 980 

GOSUB 1290 

ON B GOTO 930,940,950,960 

PRINT CHR$(106);:GOTO 980 

PRINT CHR$(106);CHR$(106);:GOTO 980 

PRINT CHR$(106);CHR$(106);CHR$(106);:GOTO 980 
PRINT CHR$(106);CHR$(106);CHR$ (106) ;CHR$ (106) 
FOR TD=1 TO 500:NEXT TD:GOTO 1380 

IF W=0 THEN 1050 

GOSUB 1320 

ON W GOTO 1010,1020,1030,1040 

PRINT CHR$(107);:GOTO 1050 

PRINT CHR$(107);CHR$(107);:GOTO 1050 
PRINT CHR$(107);CHR$(107) ;CHR$ (107) ; :GOTO 
1050 

PRINT CHR$(107);CHR$(107) ;CHR$ (107) ; 

CHR$ (107) ; 

LOCATE 0,19:PRINT SPC(29) 

LOCATE 9,15 

IF PO<10 THEN 390 

LOCATE 2,14:PRINT SPC(7) 

T=T+1:O0N A1 GOTO 810,820,830,840,850,860 
T=T+1:O0N A2 GOTO 810,820,830,840,850,860 
T=T+1:ON A3 GOTO 810,820,830,840,850,860 
T=T+1:O0N A4 GOTO 810,820,830,840,850,860 
LOCATE 1,16: PRINT"DIT ZIJN DE JUISTE FIGUREN 
LOCATE 9,20:PRINT"DRUK EEN TOETS! 
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1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


1560 
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A$=INKEY$ 

IF A$=""" THEN GOTO 1150 

CLS 

LOCATE 5,10:PRINT"HET IS FOUT! 1" 
LOCATE 5,12 


PRINT"10 BEURTEN IS TEVEEL! 

FOR TD=1 TO 2000:NEXT TD:CLS 

LOCATE 5,10:PRINT"NOG EEN KEER J/N" 
A$=INKEY$ 

IF A$="J"" THEN RUN 

IF A$<>!YN' THEN GOTO 1230 

CLS 

LOCATE 8,10 

PRINT'"BANGERD! '': END 

REM GELUID 

PLAY"A' 

RETURN 

REM SOUND 

PLAY'"C'!' 

RETURN 

REM ONJUISTE INVOER 

LOCATE 5,20:PRINT"ONJUISTE INVOER" 

FOR TD=1 TO 250:NEXT TD:GOSUB 1610:GOTO 390 
CLS:LOCATE 7,10:PRINT"JIJ WINT!!!" 

FOR Y=15 TO 1 STEP-1 

SOUND 0,100 

SOUND 1 

SOUND 6 
SOUND 7 
SOUND 8 
SOUND 1 
SOUND 1 
SOUND 1 
FOR TD= 
NEXT Y 

FOR Y=1 TO 13:SOUND Y,O:NEXT y 
LOCATE 8,22:PRINT"DRUK EEN TOETS" 
A$=INKEY$ 

IF A$="" THEN 1520 

CLS: LOCATE 7,10 


WN ess 


TO 50:NEXT TD 


IF PO=1 THEN PRINT" WAT EEN GELUK'":GOTO 
1590 

IF PO=2 OR PO=3 THEN PRINT" NIET GEK'': 
GOTO 1590 


1570 IF PO=4 OR PO=5 OR PO=6 THEN PRINT!" 
AARDIG'':GOTO 1590 

1580 IF PO=7 OR PO=8 THEN PRINT" zo ZO": 
GOTO 1590 

1590 FOR TD=1 TO 400:NEXT TD 

1600 GOTO 1220 

1610 LOCATE 0,20:PRINT SPC(30) 

1620 RETURN 

1630 REM INITIALISATIE 

1640 SCREEN 1 

1650 KEY OFF 

1660 Q=RND(-TIME) 

1670 COLOR 15,1,1 

1680 LOCATE 9,12 

1690 PRINT'"EVEN GEDULD" 

1700 REM KARAKTERS HERDEFINIEREN 

1710 FOR N=100 TO 107 

1720 FOR M=0 TO 7 

1730 READ A 

1740 VPOKE N*8+M,A 

1750 NEXT M 

1760 NEXT N 

1770 RETURN 

1780 REM DATA VOOR KARAKTERS 

1790 DATA 255,255,255,255,255,255,255,255 

1800 DATA 1,3,7,15,31,63,127,255 

1810 DATA 16,56,124,254,254,16,56,0 

1820 DATA 195,231,126,60,60,126,231,195 

1830 DATA 0,0,24,60,126,255,255,0 

1840 DATA 0,60,60,60,60,60,60,0 

1850 DATA 0,60,126,255,255,126,60,0 

1860 DATA 255,195,129,0,0,129,195,255 

1870 REM DATA VOOR TITELPAGINA 

1880 DATA 72,69,82,83,69,78,66,82 

1890 DATA 69,75,69,82,68,82,85,75,32,69 

1900 DATA 69,78,32,84,79,69,84,83 


103 


ZELF PROGRAMMA'S SCHRIJVEN 


Om zelf een boeiend spel te schrijven, moet u beginnen met een duidelijk om- 
lijnd idee. Dat lijkt vanzelfsprekend, maar als u begint met een scherp om- 
schreven doel zult u ontdekken dat het erg moeilijk is om een spelletje te maken 
dat niet alleen een uitdaging vormt maar ook leuk is om te spelen. 


Er vallen grofweg drie soorten spelletjes te onderscheiden: 


— bordspelletjes, zoals schaken, solitaire en dammen 
—arcadespelletjes, zoals Pacman en Space Invaders 
—kansspelletjes, zoals kaartspelen en dobbelen. 


Door spelletjes te bekijken en boeken te lezen kunt u ideeën opdoen voor het 
zelf schrijven van programma's. Voordat u gaat programmeren is het, zoals we 
al eerder opgemerkt hebben, absoluut noodzakelijk dat u een vastomlijnd idee 
hebt over wat u moet doen om tot een eindprodukt te komen. Maak op papier 
een ontwerp van alle stadia van het spelletje, van alle functies die de computer 
moet uitvoeren en van de handelingen die de speler moet verrichten. Moet de 
computer een denkspel spelen, zoals schaak, of moet hij een spel spelen waarbij 
toeval een rol speelt, zoals roulette? 
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Als u een simulatiespel (zoals EIGENHEIMERHEERD) aan het schrijven bent, 
moet u van tevoren bedenken welke factoren een rol kunnen spelen en hoe die 
elkaar beïnvloeden. Het is verstandig om in zo'n soort spel een lijstje te maken 
van alle namen van variabelen die u wilt gebruiken en aan te geven waar deze 
namen voor staan. Hiermee vermijdt u het probleem dat u variabelen met de- 
zelfde naam gebruikt in verschillende routines. 


Als u eenmaal het programmaplan hebt gemaakt, bedenk dan van tevoren 
welke programmeringstechniek u nodig heeft. Als het een arcade-achtig spel- 
letje is, moet u beslissen of er sprites nodig zijn of dat programmeerbare karak- 
ters misschien geschikter zijn. 


Maak dan, rekening houdend met al deze factoren, eem ruwe schets van het pro- 
gramma en noteer tegelijkertijd alle routines die nodig zijn om het goed lopend 
en makkelijk leesbaar te maken. De grotere programma's in dit boek, zoals El- 
GENHEIMERHEERD, HET ROMEINSE RIJK en SLAG OM ENGELAND zijn ge- 
schreven met een controle—programma, dat in de eerste regels staat. Dit pro- 
gramma roept vervolgens de verschillende subroutines aan. 


Deze manier van programmeren, die meestal ‘module—programmering’ wordt 
genoemd, is erg effectief. Programma's blijven zo netjes en overzichtelijk met 
alle verwante functies bij elkaar in één routine. Lezen en fouten opsporen wor- 
den erdoor vergemakkelijkt. Bij HET ROMEINSE RIJK bijvoorbeeld weet u, als 
de informatieverschaffing niet goed werkt, dat het probleem moet worden ge- 
zocht in regel 2980-3120, de routine die het senaatsverslag op het scherm 
brengt. 


Routines die maar één keer worden gebruikt, zoals de opstartroutines (waarin 
de variabelen, de sprites en dergelijke opgezet worden) en de titelroutine staan 
meestal aan het eind van het programma. Probeer de routines te rangschikken 
naar belangrijkheid. Als u een routine vaak gebruikt, zet deze dan aan het begin 
van het programma, dat bevordert de snelheid ervan. 


In de arcade-—achtige en de bewegende grafische spelletjes is snelheid een be- 
langrijk element. Als een spel te snel is, kan altijd een vertragingslus worden 
ingebouwd, maar het is erg moeilijk om een langzaam spel te versnellen. In 
spelletjes zoals AFDALING IN CHAOS en SCHIET hebben we een kernpro- 
gramma gebruikt dat alleen bestaat uit de basiselementen die nodig zijn om het 
programmatelaten lopen. Alle andere routines zitten buiten deze lus en worden 
pas opgeroepen wanneer ze nodig zijn. Dit kernprogramma moet zo beknopt 
mogelijk worden gehouden voor een snelle en effectieve afwikkeling van het 
spel. 


Als u een programma maakt waarbij invoer van een speler nodig is, zorg er dan 
van tevoren voor dat u voldoende routines hebt om fouten op te sporen, zodat 
er geen ongeoorloofde opdrachten worden geaccepteerd door de computer. 
Vergeet ook niet ervoor te zorgen dat de speler tijd genoeg krijgt om de informa- 
tie op het beeldscherm te lezen! 
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Als u het spelletje alleen heeft ontworpen, bentu de grootste (en enige) deskun- 
dige in de wereld op het terrein van uw spelletje. U kunt niet verwachten dat 
iemand die uw spelletje gaat spelen altijd uw regels zal opvolgen of intelligent 
zal reageren. Houd daarom in het ontwerp altijd rekening metde meest onwaar- 
schijnlijke mogelijkheden. 


Een van de eerste dingen die we doen als we een nieuw spelletje voorgelegd 
krijgen ter publicatie, is het spelletje spelen, maar dan op de slechtst mogelijk 
manier. In een avonturenprogramma proberen we bijvoorbeeld door muren 
heen te lopen, niet bestaande voorwerpen opte pakken en andere onmogelijke 
dingen te doen. In bewegende grafische spelletjes proberen we van het beeld- 
scherm te verdwijnen, schieten we op eigen voorwerpen en doen in het alge- 
meen alles wat we kunnen om het spelletje mis te laten gaan. Als het een bord- 
spelletje is, zetten we de stukken in de verkeerde richting en doen zoveel moge- 
lijk ongeoorloofde en domme zetten om te kijken of het programma hiertegen 
opgewassen is. 


Wil het spel een topper worden, dan moet het boeiend zijn en een uitdaging vor- 
men voor de speler, zodat hij of zij zich niet verveelt. Veel geluid en kleur en 
goede routines, die op mislukkingen en succes reageren, kunnen bijdragen tot 
het succes van het spel. 


Tenslotte moet uw spelletje grondig worden getest. Zorg ervoor dat alle routi- 
nes, zelfs de routines die nauwelijks worden gebruikt, teallentijde en onder alle 
omstandigheden goed functioneren. 


Als u een spelletje heeft geschreven waarvan u denkt dat het interessant, span- 
nend en uitdagend is, waarom legt u het dan niet ter publicatie voor? Zo kunnen 
ook anderen ervan genieten. Wij hebben altijd zeer veel belangstelling voor 
nieuwe programma’s. 
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STAPSGEWIJS EEN PROGRAMMA 
ONTWIKKELEN 


Tot slot van dit boek willen we proberen om het voorgaande hoofdstuk te ver- 
duidelijken door in etappes een programma te ontwikkelen. 


Het programma dat u nog rest, is er een van het eenvoudige arcade—type. Wij 
geven u het basisprincipe, maar hetis aan u om er een spannend en uitdagend 
spel van te maken. De bedoeling is dat u de sprite naar willekeurig op hetscherm 
verschijnende hartjes stuurt om deze opte eten. In deze versie is er geen sprake 
van winst of verlies; het is een demonstratie van de mogelijkheden. 
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TITELPAGINA 


We hebben de verschillende onderdelen in de volgorde van het uiteindelijke 
programma uitgewerkt. Ten eerste de titelpagina. Om het programma zo ge- 
structureerd mogelijk te houden hebben we detitelroutine aan het eind van het 
programma gezet. 


Door middel van de GOSUB-instructie in regel 20 wordt de titelroutine aange- 
roepen. De regels 5010-5030 geven de gewenste kleur en het gewenste 
SCREEN aan en laten de balk met functietoetsen uit beeld verdwijnen (KEY 
OFF). Met behulp van de READ-instructie wordt de titel in regel 5050 uit de 
DATA ingelezen en door middel van PRINT CHR$(B) in regel 5070 gePRINT. 


10 REM MAAK ZELF EEN SPEL 
20 GOSUB 5000:REM TITELPAGINA 


5000 REM TITELPAGINA 

5010 COLOR 1,14,14 

5020 SCREEN 1 

5030 KEY OFF 

5040 FOR Q=1 TO 17 

5050 READ B 

5060 LOCATE 5+Q,12 

5070 PRINT CHR$(B) 

5080 FOR TD=1 TO 100:NEXT TD 
5090 NEXT Q 

5100 FOR TD=1 TO 2000:NEXT TD 
5110 RETURN 


10000 REM DATA VOOR TITELPAGINA 
10010 DATA 77,83,88,32,80,82,79,71,82 
10020 DATA 65,77,77,65,32,77,73,88 
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DEFINITIE VAN EEN SPRITE 


Omdat we ditspel als voorbeeldspel zien, hebben we ervoor gekozen om én een 
sprite én een opnieuw gedefinieerd karakter te gebruiken. Eerst behandelen we 
de sprite. 


Evenals de titelroutine laten we ook de spriteroutine door middel van een 
GOSUB aan het begin van het programma aanroepen. De sprite is bij de MSX 
niets anders dan een string. We voegen dan ook de verschillende DATA (door 
middel van een READ-instructie) toe aan SO$. Als alle DATA zijn gelezen, noe- 
men we de sprite SO$. 


30 GO 


SUB 4000:REM DEFINIEER SPRITE 


REM SPRITE DEFINIERING 
FOR I=1 TO 32 

READ B% 
50$=S0$+CHR$ (B%) 

NEXT I 

SPRITE$(0)=50$ 

RETURN 


REM DATA VOOR SPRITE 

DATA 127,255,199,199,215,215,215,255 
DATA 254,252,255,255,106,96,49,31 
DATA 254,255,227,227,235,235,235,255 
DATA 127,63,255,255,86,6,92,248 
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EEN KARAKTER HERDEFINIËREN 


Nadat de sprite is opgezet, herdefiniëren we in de volgende subroutine karakter 
100 (d) tot een hartje. Door de waarden in regel 3010 te veranderen kuntu zoveel 
karakters herdefiniëren als u nodig heeft. Het meest eenvoudige isom daarvoor 
karakters te gebruiken die u verder in het programma (uiteraard) niet nodig 
heeft, bijvoorbeeld de karakters na karakter 100 (d, e‚ f en volgende kleine let- 


ters). 


40 GOSUB 3000:REM KARAKTER HERDEFINIEREN 


REM HERDEFINIEREN VAN KARAKTERS 
FOR N=100 TO 100 

FOR M=0 TO 7 

READ A 

VPOKE N*8+M,A 

NEXT M 

NEXT N 

RETURN 


10080 REM DATA VOOR NIEUW KARAKTER 
10090 DATA 68,238,254,124,124,56,56,16 
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INITIALISATIE 


Voordat het spel kan beginnen, moeten er nog een aantal zaken worden gere- 
geld. Gebruikt u de cursorbesturingstoetsen of een joystick, welke kleur krijgt 
de sprite, wat zijn de beginwaarden voor de sprite, en andere vragen. Al deze 
vragen komen aan de orde in het blok INITIALISATIE. Ook zetten we hier een 
ON INTERVAL-routine op, die elke seconde wordt aangeroepen, om met be- 
hulp vande variabele T een tijdslimiet te creëren waarbinnen het hartje opgege- 
ten moet zijn. De regels 800-830 PRINTen een spatie (karakter 32) op de plaats 
waar eerst het hartje stond. 


REM INITIALISATIE 

ON INTERVAL=60 GOSUB 900 
X=10:Y=10 

Q=RND( -TIME) 

CLS 

LOCATE 2,10 

PRINT"WAT GEBRUIKT U" 
LOCATE 4,12 

PRINT"1 JOYSTICK (POORT1)" 
LOCATE 4,13 

PRINT"2 JOYSTICK (POORT2)" 
LOCATE 4,14 

PRINT"3 CURSORBESTURINGSTOETSEN'" 
LOCATE 2,15 

INPUT B 

LOCATE 2,17 

PRINT"WELKE KLEUR MOET DE SPRITE" 
LOCATE 2,18 

PRINT" KRIJGEN"; 

INPUT K 

CLS 

IF B=1 THEN R=1 

IF B=2 TEEN R=2 

IF B=3 THEN R=0 


REM HARTJE GEPAKT? 
LOCATE M‚N 

PRINT CHR$(32) 
RETURN 

REM INTERVALROUTINE 
T=T+1 

RETURN 
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BEWEGING EN CONTROLE 


Als laatste onderdeel hebben we gekozen voor beweging en controle. De ge- 
maakte sprite moet over het beeld kunnen worden bewogen. Daarvoor maken 
we gebruik van de instructie STICK(R), waarbij de variabele R tijdens de initia- 
lisatie een waarde heeft gekregen. Gebruikt u een joystick in poort 1 of 2 dan 
krijgt variabele R respectievelijk de waarde 1 en 2. Gebruikt u de cursorbestu- 
ringstoetsen dan krijgt R de waarde 0. STICK(R) leest de invoer en geeft aan de 
variabele D een waarde (tussen 1 en 8), waarbij elke waarde een richting verte- 
genwoordigt. Zo betekent waarde 1 OMHOOG en waarde 6LINKSONDER. Door 
gebruik te maken van de variabelen X en Y kunnen we in regel 440 door middel 
van PUT SPRITE(X,Y),K(leur) de gemaakte sprite naar een bepaalde schermpo- 
sitie brengen. 


Verder wordt in deze routine gecontroleerd of er een nieuw hartje moetworden 
gePRINT. Dit wordt bekeken aan de hand van de variabele T, die elke seconde 
met 1 wordt verhoogd (zie voorgaande routine). Regel 510 kijkt of de sprite bo- 
ven het hartje staat. Zo ja, dan wordt de subroutine in regel 800-830 aangeroe- 
pen, waar op de plaats van het hartje een spatie wordt gePRINT. 


Tenslotte wordt in regel 520 het programma weer naar regel 350 gestuurd, waar 
opnieuw de besturing uitgelezen wordt. 


340 REM BEWEGING EN CONTROLE 
350 INTERVAL ON 

360 D=STICK(R) 

370 IF D=1 THEN Y=Y-1 


380 IF D=2 THEN X=X+15Y=Y-1 
390 IF D=3 THEN Xe=X+1 
400 IF D=4 THEN X=X+1:Y=Y+1 
410 IF D=5 THEN Y=Y+1 
420 IF D=6 THEN X=X-1:Y=Y+1 
430 IF D=7 THEN X=X-1 


440 IF D=8 THEN X=X-1:Y=Y-1 

450 PUT SPRITE 0, (X,Y),K 

460 IF T<10 THEN GOTO 520 

470 M=INT(RND(1)*30) +1 

480 N=INT(RND(1)*21) +1 

490 LOCATE M‚N 

500 PRINT CHR$(100) 

510 T=0 

520 IF INT(X/8)-1=M AND INT(Y/8)+1=N THEN GOSUB 


530 GOTO 360 


N.B. 


U kunt dit programma het beste in één keer intypen. Schrijft u de delen af- 


zonderlijk weg, dan moet u ze later MERGEn tot 1 programma. 


Hebt u alle afzonderlijke onderdelen ingetypt en geeft u de RENUM-instructie, 


dan 


ziet het programma er zo uit: 


REM MAAK ZELF EEN SPEL 

GOSUB 710:REM TITELPAGINA 

GOSUB 640:;REM DEFINIEER SPRITE 
GOSUB 560:REM KARAKTER HERDEFINIEREN 
REM INITIALISATIE 

ON INTERVAL=60 GOSUB 530 

X=10:Y=10 

Q=RND( -TIME) 

CLS 

LOCATE 2,10 

PRINT"WAT GEBRUIKT U" 

LOCATE 4,12 

PRINT'1 JOYSTICK (POORT1)" 

LOCATE 4,13 

PRINT''2 JOYSTICK (POORT2)' 

LOCATE 4,14 

PRINT''3 CURSORBESTURINGSTOETSEN'" 
LOCATE 2,15 

INPUT B 

LOCATE 2,17 

PRINT"WELKE KLEUR MOET DE SPRITE!" 
LOCATE 2,18 

PRINT" KRIJGEN''; 

INPUT K 

CLS 

IF B=1 THEN R=1 

IF B=2 THEN R=2 

IF B=3 THEN R=0 

REM BEWEGING EN CONTROLE 

INTERVAL ON 

D=STICK(R) 

IF D=1 THEN Y=Y-1 

IF THEN X=X+1:Y=Y-1 

IF THEN X=X+1 

IF THEN X=X+13Y=Y+1 

IF THEN Y=Y+1 

IF THEN X=X-13Y=Y+1 

IF THEN X=X- 
EF THEN X=X- 


leReRekeledeke} 
0 ID U WN 
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400 PUT SPRITE 0, (X,Y),K 

410 IF T<10 THEN GOTO 470 

420 M=INT(RND(1)*30) +1 

430 N=INT(RND(1)*21)+1 

440 LOCATE M‚N 

450 PRINT CHR$(100) 

460 T=0 

470 IF INT(X/8)-1=M AND INT(Y/8)+1=N THEN GOSUB 
490 

480 GOTO 310 

490 REM HARTJE GEPAKT? 

500 LOCATE M‚N 

510 PRINT CHR$(32) 

520 RETURN 

530 REM INTERVALROUTINE 

540 T=T+1 

550 RETURN 

560 REM HERDEFINIEREN VAN KARAKTERS 

570 FOR N=100 TO 100 

580 FOR M=0 TO 7 

590 READ A 

600 VPOKE N*8+M,A 

610 NEXT M 

620 NEXT N 

630 RETURN 

640 REM SPRITE DEFINIERING 

650 FOR I=1 TO 32 

660 READ B3 

670 S0$=5S0$+CHRS(B%) 

680 NEXT I 

690 SPRITE$(O)=S0$ 

700 RETURN 

710 REM TITELPAGINA 

720 COLOR 1,14,14 

730 SCREEN 1 

740 KEY OFF 

750 .FOR Q=1 TO 17 

760 READ B 

770 LOCATE 5+Q,12 

780 PRINT CHRS(B) 

790 FOR TD=1 TO 100:NEXT TD 

800 NEXT Q 

810 FOR TD=1 TO 2000:NEXT TD 

820 RETURN 
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830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


REM DATA VOOR TITELPAGINA 

DATA 77,83,88,32,80,82,79,71,82 

DATA 65,77,77,65,32,77,73,88 

REM DATA VOOR SPRITE 

DATA 127,255,199,199,215,215,215,255 
DATA 254,252,255,255,106,96,49,31 
DATA 254,255,227,227,235,235,235,255 
DATA 127,63,255,255,86,6,92,248 

REM DATA VOOR NIEUW KARAKTER 

DATA 68,238,254,124,124,56,56,16 
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rogrammeren in BASIC is voor 

vele adspirant-programmeurs vaak 
moeilijker dan het hoeft te zijn. Met 
MSX-PROGRAMMA MIX heeft v de 
beschikking over complete listings en een 
uitgebreide toelichting op de opbouw 
van de programma's, zodat u spelen- 
derwijs komt waar u wezen wilt. En dat 
lukt des te beter omdat die programma's 
een goed en efficiënt gebruik maken 
van de mogelijkheden van uw 
MSX-computer. 


Heeft u niet zozeer de behoefte eigen 
programma's te leren schrijven, dan 
biedt MSX -PROGRAMMA MIX een 
gevarieerde hoeveelheid listings, klaar 
om ingetypt en gebruikt te worden. 
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